Makro beim Speichern funktioniert nicht
07.07.2004 13:35:43
Carmen
kann mir jemand sagen warum der folgende Code unter "DieseArbeitsmappe" nicht funktioniert?
Private Sub Workbook_BeforeSave()
Worksheets("Kalender 1-6").Activate
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Range("A1").Select
Worksheets("Kalender 7-12").Activate
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Range("A1").Select
ActiveWorkbook.Save
End Sub
Beim Ausführen des Makros bleibt er gleich in der ersten Zeile hängen mit folgender Meldung:
Fehler beim Kompilieren:
Deklaration der Prozedur entspricht nicht der Beschreibung eines Ereignisses oder einer Prozedur mit demselben Namen
Danke und Gruß
Carmen