|
Du musst mal ein bisschen über If-Funktionen und den Like Operator recherchieren.
Zum Einen kannst du statt Like auch = benutzen wenn du damit nichts anderes als "=" ausdrückst.
"If V3 like "L9.5" and V3 like "L9.6"
Wenn du Zahlen von 1 bis 5 durchgest und bei jeder fragst, ob die Zahl gleich 5 UND gleich 1 ist trifft das nie zu...
Daher wird der Code nur bis zur zweiten If-Funktion ausgeführt. Ich vermute mal du willst eigentlich Or verwenden, was aber auch keinen Sinn ergibt. Du hast nämlich vorher schon genau diese Beiden Fälle eliminiert, was dazu führt, dass sie in der nachfolgenden If-Funktion garnicht auftreten können.
Versuchs mal so:
'Alle in Spalte FahrzeugID <> "W*" berücksichtigen
If V1 <> "W*" Then
'L9.3 + Fremd + DOPPEL* oder STOR* berücksichtigen
If V3 = "L9.3" And V2 Like "FREMD*" And (V1 Like "STOR*" Or V1 Like "DOPPEL*") Then
'Alle Verbliebenen ROTES* ODER TANK* ausschneiden
If V2 Like "ROTES*" Or V2 Like "TANK*" Then 'TANKK oder TANK?
gesamt.Rows(y).Copy unbetrachtet.Rows(x)
x = x + 1
End If
End If
End If
Ich weiß nur leider nicht genau was du wirklich willst, das was du in den Kommentaren schreibst und das was du programmierst sind zwei verschiedene Dinge...
|