Laufzeitfehler 1004 bei Makroausführung
13.08.2003 12:37:50
Dirk
Die Methode 'Calculation' für das Objekt '_Application' ist fehlgeschlagen.
Danach funktioniert das Makro auch bei normalem Ausführen nicht mehr, erst wenn die Datei neu geöffnet wurde. Andere Buttons mit anderen Makros funktionieren dagegen.
Hier das Makro, das beim Klicken auf den Button nicht funktioniert:
Sub Leer_Zeilen()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, 5).Value = "" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub
Habe also einfach nur den Makro-Namen in den Button eingetragen, aber es will dann einfach nicht mehr.
Hat jemand eine Lösung???
Gruß, Dirk
Anzeige