leere und die vorhergehende Zeile löschen
09.07.2003 21:26:48
Herbert
wie muss ich das unten angeführten makro ergänzen, damit auch die
4 vorhergehenden zeilen der zelle = "" mitgelöscht werden. die vorherhegenden
zeilen können müssen aber nicht leer sein.
Sub Zeilen_Löschen()
' alle Zeilen Lösche wo Zelle in Spalte C leer
' Anzahl der Zeilen an Spalte C ermitteln
Dim i As Integer
For i = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
If Cells(i, 3) = "" Then Rows(i).Delete
Next i
End Sub
danke für die hilfe
herbert
Anzeige