|
Sorry, hab deinen zweiten Post überlesen.
For y = 3 To lngZeilen
'Bedingungen
With gesamt
V3 = .Cells(y, 3).Value
V4 = .Cells(y, 4).Value
End With
If V4 Like "FREMD*" And Not V3 Like "L9.3" Then
gesamt.Rows(y).Cut unbetrachtet.Rows(x)
x = x + 1
End If
Next y
For y = 3 To lngZeilen
'Bedingungen
With gesamt
V1 = .Cells(y, 11)
V2 = .Cells(y, 4).Value
End With
If Not V1 Like "W*" And V1 <> "" _
Or V2 Like "ROTES*" _
Or V2 Like "TANKK*" Then
' Or V2 Like "EZW*"
gesamt.Rows(y).Cut unbetrachtet.Rows(x)
x = x + 1
End If
Next y
Hier dürftest du in der zweiten Schleife das gleiche Problem haben. Tritt der Fehler auch auf wenn du die erste Schleife weglässt? Fremd kann nämlich auch durch die zweite Schleife ausgewählt werden... und da interressiert es das Programm auch überhaupt nicht was in der dritten Spalte steht...
Falls es ohne die erste Schleife soweit korrekt durchläuft muss es da noch ein anderes Problem geben. Da bräuchte ich dann mal einen konkreten Datensatz welcher bei dir fälschlicherweise ausgeschnitten wird...
|