Leere Zellen löschen
26.08.2005 21:50:33
Rudi
Der Code ist folgender:
Sub LeereZellenLoeschen()
Application.Goto Reference:="AW"
ActiveSheet.Unprotect
Dim lngC As Long
Dim lngRow As Long
Application.ScreenUpdating = False
lngRow = ActiveSheet.UsedRange.Rows.Count
For lngC = lngRow To 1 Step -1
If WorksheetFunction.CountA(Rows(lngC)) = 0 Then Rows(lngC).Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
Sheets("Maske").Select
Application.ScreenUpdating = True
End Sub
Das Makro funktioniert aber nicht. Der Fehlerhinweis ist: Rows(lngC).Delete
Warum ist das so?
gruss rudiflei