hab folgendes Makro auf nem Button liegen.
Das Makro soll im Sheets A alle Zeilen löschen welche nicht der Variablen z entsprechen.
Das Problem ist das Makro dauert bei 500 Zeilen, was ja eigentlich nicht so viel ist, sehr lange
Kann ich das irgendwie geschickter und vor allem schneller lösen
'___________________________________________________________________________________
Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Integer
Dim z As String
x = 2
y = Worksheets("A").Cells(Rows.Count, 1).End(xlUp).Row + 1 '(hier: ca. 500 Zeilen )
z = Worksheets("B").Cells(23, 23).Value '(z.B.: Hr. Meier)
Do until x = y
If Worksheets("A").Cells(x, 3).Value = z Then
Else
Worksheets("A").Rows(x & ":" & x).Delete Shift:=xlUp
End If
x = x + 1
Loop
End Sub
Danke Euch schon mal & liebe Grüße
Chrissey