Ich habe ein super Makro von Hans bekommen, das ich gern etwas optimiert haben würde. Wer kann mir helfen??
Hier das Makro
Sub Start()
Dim i%, Alle&
Worksheets(1).Select
Application.ScreenUpdating = False
Alle = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
For i = Alle To 1 Step -1
Do While Application.CountA(Rows(i)) = False
Rows(i).EntireRow.Delete
Loop
Next i
End Sub
Ich möchte nicht das die Leerzeilen gefunden und gelöscht werden, sondern dass nur die Zeilen in denen ein bestimmter Wert steht (z.B. Mitarbeiter Nummer 290100) übrig bleiben. DIe anderen sollen gelöscht werden.
Wie könnte das durch Anpassen des Makros gehen? Hat einer ´ne Idee?
Danke und Grüße aus Flensburg.
Hauke