Makro bei Klick auf Button ausführen.
13.08.2003 09:47:11
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. Ein anderer Button mit einem anderen Makro funktioniert 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