Makro zur Zeilen löschen verfeinern
22.09.2008 13:23:19
Matthias
ich habe ein Makro, das alle Zeilen löscht in denen kein Inhalt steht.
Allerdings würde ich das Makro gerne so anpassen, dass er eine Zeile komplett löscht, wenn in einer bestimmten Spalte die Zelle leer ist.
Das Makro soll also nicht die gesamte Zeile nach Inhalten durchsuchen, sondern nur gucken, ob in einer bestimmten Zelle in der Zeile ein Inhalt steht. Wenn das nicht der Fall ist, soll die ganze Zeile gelöscht werden.
Der Code sieht folgendermaßen aus:
Sub LeerZeilenLöschen()
Dim Zeile As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
For Zeile = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(Zeile, 2)) Then Rows(Zeile).Delete
Next Zeile
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub
Freue mich auf eure Ideen. Vielen Dank schonmal!!
Anzeige