|
Ich hab dir die Lösung doch schon geschrieben ^^
For y = 3 To lngZeilen
'Bedingungen
With gesamt
V1 = .Cells(y, 11)
V2 = .Cells(y, 4).Value
V3 = .Cells(y, 3).Value
End With
If Not V1 Like "W*" And V1 <> "" Then
If V2 Like "ROTES*" _
Or V2 Like "TANKK*" _
Or V2 Like "FREMD*" And Not V3 Like "L9.0" And Not V3 Like "L9.2" And Not V3 Like "L9.3" Then
gesamt.Rows(y).Cut unbetrachtet.Rows(x)
x = x + 1
End If
End If
Next y
Das IST die Lösung (durch zwei If Funktionen). Kannst das ja mal ausprobieren, bin mir recht sicher, dass es so funktioniert.
@Detlef:
An Klammern hatte ich auch schon gedacht, dürfte hier aber nichts bringen, weil die Bedingung ja durch "If Not V1 Like "W*" And V1 <> """ schon fälschlich erfüllt werden dürfte...
|