problem mit entirerow.delete shiftup
19.06.2003 10:25:27
hans
For i = 3 To LastRow
Range("A" & i).Select
If IsEmpty(ActiveCell) Then
ActiveCell.EntireRow.Delete Shift:=xlUp
End If
Next i
Das Problem ist das zum Schluss leere Zeilen übrig bleiben weil wenn z.B A10 gelöscht wird dann gelangt ja A11 in die position von A11 und wird somit übersprungen. Wenn A11 also leer ist hab ich ein Problem. Wie kann ich gar alle Zeilen bei denen der Wert in Spalte A leer ist löschen?
Danke