|
Ich weiß nicht was du da sonst noch so machst. Aber das Makro funktioniert wie es soll. Hab es mal getestet:
Option Explicit
Private Sub ZeilenAusschneiden()
Dim V1, V2, V3, y&, x&
Dim rng As Range, Vals
Dim gesamt As Worksheet
Dim unbetrachtet As Worksheet
Set unbetrachtet = Sheets(2) 'sheet unbetrachtet anpassen!
Set gesamt = ActiveSheet 'ebenfalls anpassen!
With gesamt
Set rng = .Range(.Cells(.Rows.Count, 1).End(xlUp), .Cells(2, .Columns.Count).End(xlToLeft)) 'dürfte ohne Anpassung funktionieren
End With
Vals = rng.Value
For y = 1 To UBound(Vals)
'Bedingungen
V1 = Vals(y, 3) 'anpassen!
V2 = Vals(y, 2) 'anpassen!
V3 = Vals(y, 1) 'anpassen!
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
x = x + 1
rng.Rows(y).Cut unbetrachtet.Rows(x)
End If
End If
Next y
End Sub
Tabelle:
|
Leasingart |
VC.Mode |
FahrzeugID |
Ausgeschnitten |
|
L9.2 |
FREMD |
W454545 |
FALSCH |
|
L9.3 |
FREMD |
W123123 |
FALSCH |
|
L9.3 |
ROTES |
W7878787 |
FALSCH |
|
L9.0 |
ROTES |
aaabbbaaa |
WAHR |
|
L9.5 |
FREMD |
bbbtttrrrrrrr |
WAHR |
|