Zeilen löschen
07.07.2004 07:46:38
Werner
mit dem Makro unten lösche ich leere Zeilen aus einer Tabelle.
Wie mus ich Datei umstellen, wenn ich Zeilen löschen will, wenn in Spalte G und H die gleiche Zahl steht.Z.B. in G3 und H3 steht die gleiche Zahl, dann die Zeile löschen. Also immer nur gleiche Zahlen in einer Zeile.
Werner
Sub LeereZeileLöschen()
Dim i As Long, j As Long, maxzeilen As Long
maxzeilen = Range("A65536").End(xlUp).Row
i = 1
j = 0
Do While i < maxzeilen
If Cells(i, 1).Value = "" Then
Rows(i).Delete
j = j + 1
If i + j >= maxzeilen Then Exit Sub
i = i - 1
End If
i = i + 1
Loop
End Sub