Fehler beim Ausführen eines Makros
19.04.2005 14:32:26
Hans-Georg
ich habe zwei Makros in "Diese Arbeitsmappe" eingefügt.
MAKRO 1
Option Explicit
Public symbol As CommandBar
Public Stand As Boolean
Private Sub Workbook_Activate()
Leisten False
End Sub
Private Sub Workbook_Deactivate()
Leisten True
End Sub
MAKRO 2
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
UserForm1.Show vbModeless
DoEvents
Unload UserForm1
End Sub
Das erste Makro blendet alle Symbole aus und das zweite Makro öffnet eine Userform beim Speichern.
Makro 1 läuft ohne Probleme, aber bei Makro 2 bekomme ich eine Fehlermeldung
"Nach EndSub ...."
Was habe ich falsch gemacht ?
MfG
Hans-Georg