|
Hi Till,
habe die ganze Zeit am Code gebastelt und "fast" meinen Anforderungen entsprechend eine Lösung gefunden...
For y = 3 To lngZeilen
'Bedingungen
With gesamt
V1 = .Cells(y, 11)
V2 = .Cells(y, 4)
V3 = .Cells(y, 3).Value
End With
If V1 Like "DOPPEL*" And Not V3 Like "L9.5" And Not V3 Like "L9.6" And V2 Like "FREMD*" _
Or Not V1 Like "W*" And Not V3 Like "L9.3" Then
gesamt.Rows(y).Copy unbetrachtet.Rows(x)
x = x + 1
If V2 Like "ROTES*" _
Or V2 Like "TANKK*" Then
gesamt.Rows(y).Copy unbetrachtet.Rows(x)
x = x + 1
End If
End If
Next y
Wenn ich das so laufen lasse, wird nur der erste IF-BLOCK ausgeführt. Die Daten werden allerdings nur ausgelesen und in neue Datei eingefügt wenn ich die Ausführungsanweisung->
gesamt.Rows(y).Copy unbetrachtet.Rows(x)
x = x + 1
einfüge.
Alos "nur" noch 2 Probleme: 1. Zweiter IF-Block wird nicht geprüft und 2. Erster IF-Block ohne gesamt.Rows(y).Copy .... nicht ausführbar (also fügt keine Daten in neue Datei ein, ansonsten schon)
Ich würde mich über die hoffentlich letzte Hilfe freuen :)
Danke!
Gruß Sino
|