Hallo Leute, ich bin es nochmal.
Das ist mein Code:
If Range("CG2").Value "" Then
v1 = Range("CG2").Value
Range("S2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=19, Criteria1:="" & v1
Range("A2").AutoFilter
End If
Mein Problem ist nun, dass ich alle Zeilen, die v1 nicht entsprechen löschen will und dann sollte diese leere Zeilen mit der untern aufgefüllt werden (Shift:=xlUp mit diesem Befehl glaube ich). Kann mir einer sagen wie ich das anstellen kann?
Danke
mfg Robson