Leere Zeilen löschen
06.10.2008 14:46:00
Basti
in Datei 1 Tabelle A werden in Spalte B durch einen externen Bezug zu einer anderen Datei 2 Werte übertragen. In der externen Datei 2 sind jedoch nicht in jeder Zeile Werte vorzufinden, daher gibt es im Tabellenblatt A Zeilen in denen in Spalte B keine Werte dargestellt sind.
Ich möchte alle Zeilen in denen die Zellen in Spalte B keinen Wert anzeigt (es steht jedoch ein Bezug drin) gelöscht werden. Das habe ich mit unten stehdenden Makro vor. Durch den Befehl "Selection.EntireRow.Delete" sollte eigentlich die entsprechende Zeile gelöscht werden. Geht aber nicht - warum? Kann mir einer bitte weiterhelfen?
Viele Grüße von Bastian
Sub Löschen()
'Schutz aufheben:
Application.ScreenUpdating = False
Cells.Select
Selection.EntireRow.Hidden = False
Range("B3").Select
probe = IsEmpty(ActiveCell)
While probe = False
ActiveCell.Offset(1, 0).Range("A1").Select
probe = IsEmpty(ActiveCell)
If ActiveCell = Empty Then
Selection.EntireRow.Delete
Else
End If
Wend
Application.ScreenUpdating = True
End Sub