Thema Datum  Von Nutzer Rating
Antwort
29.11.2011 09:28:45 Sino
Solved
29.11.2011 10:05:18 Till
NotSolved
29.11.2011 11:04:24 Gast27334
NotSolved
29.11.2011 14:42:38 Sino
NotSolved
29.11.2011 19:23:08 Dekor
NotSolved
29.11.2011 20:31:10 Till
NotSolved
29.11.2011 20:36:47 Till
NotSolved
30.11.2011 08:54:39 Sino
NotSolved
30.11.2011 11:14:15 Till
NotSolved
30.11.2011 11:27:20 Sino
NotSolved
30.11.2011 11:57:22 Till
NotSolved
30.11.2011 13:02:36 Gast71196
NotSolved
30.11.2011 13:11:03 Sino
NotSolved
30.11.2011 18:17:17 Till
NotSolved
01.12.2011 09:18:42 Sino
NotSolved
01.12.2011 15:46:01 Sino
NotSolved
01.12.2011 16:02:20 TIll
NotSolved
01.12.2011 16:31:38 Sino
NotSolved
Rot Problem innerhalb einer Schleife
 02.12.2011 09:13:20 Sino
NotSolved
02.12.2011 16:57:31 Till
NotSolved
02.12.2011 17:03:54 Till
NotSolved

Ansicht des Beitrags:
Von:
Sino		 Datum:
02.12.2011 09:13:20		 Views:
1246		 Rating:
     
Antwort:
  Ja
Thema:
Problem innerhalb einer Schleife

 Hallo Till,

kleine Codeanpassung:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
For y = 3 To lngZeilen
    'Bedingungen
        With gesamt
            V1 = .Cells(y, 11)
            V2 = .Cells(y, 4).Value
            V3 = .Cells(y, 3).Value
        End With
         
      'L9.3 + Fremd + DOPPEL* oder STOR*
       If Not V3 Like "L9.5" And Not V3 Like "L9.6" And V2 Like "FREMD*" And (V1 Like "STOR*" Or V1 Like "DOPPEL*") Then
                             
      'Alle L9.5 + L9.6 raus
       If V3 Like "L9.5" And V3 Like "L9.6" Then
                           
      'Alle in Spalte FahrzeugID ungleich W* raus
       If V1 <> "W*" Then
 
       'Alle ROTES* und TANK* raus
        If V2 Like "ROTES*" _
        Or V2 Like "TANKK*" Then
         
        gesamt.Rows(y).Copy unbetrachtet.Rows(x)
        x = x + 1
 
        End If
        End If
        End If
        End If
         
         
         
Next y

 

 

 

Ich verstehe einfach nicht warum nur der erste IF-BLOCK ausgeführt/beachtet wird???!?!

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.11.2011 09:28:45 Sino
Solved
29.11.2011 10:05:18 Till
NotSolved
29.11.2011 11:04:24 Gast27334
NotSolved
29.11.2011 14:42:38 Sino
NotSolved
29.11.2011 19:23:08 Dekor
NotSolved
29.11.2011 20:31:10 Till
NotSolved
29.11.2011 20:36:47 Till
NotSolved
30.11.2011 08:54:39 Sino
NotSolved
30.11.2011 11:14:15 Till
NotSolved
30.11.2011 11:27:20 Sino
NotSolved
30.11.2011 11:57:22 Till
NotSolved
30.11.2011 13:02:36 Gast71196
NotSolved
30.11.2011 13:11:03 Sino
NotSolved
30.11.2011 18:17:17 Till
NotSolved
01.12.2011 09:18:42 Sino
NotSolved
01.12.2011 15:46:01 Sino
NotSolved
01.12.2011 16:02:20 TIll
NotSolved
01.12.2011 16:31:38 Sino
NotSolved
Rot Problem innerhalb einer Schleife
 02.12.2011 09:13:20 Sino
NotSolved
02.12.2011 16:57:31 Till
NotSolved
02.12.2011 17:03:54 Till
NotSolved