Moin zusammen,
am Ende eines Makros lade ich mit folgendem Code eine Userform,
die nach 3 Sekunden wieder verschwindet. Im Label der UF
steht nur der Text „Erledigt“
Funktioniert prima.
Die UF rufe ich am Ende eines Makros mit
frmMsg.Show
auf mit folgendem Inhalt:
Private Sub UserForm\_Activate()
Application.Wait Now + TimeSerial(0, 0, 3)
Unload Me
End Sub
Im Label der UF steht nur
Private Sub Label1\_Click()
End Sub
Im Labeltext steht: Erledigt
Nun das Problem:
3 Tabellenblätter weiter in derselben Datei möchte ich
den gleichen Effekt haben.
Ich starte die UF aus einem Makro und - erhalte eine leere UF
ohne den Text „Erledigt“.
Auffällig ist, dass ich in der funktionierenden Version den
Mauspfeil während der 3 Sekunden über die UF bewegen kann, der sich
beim Überqueren der UF von der Eieruhr in einen Pfeil wandelt.
Auf der nicht funktionierenden Seite kann ist die Eieruhr festgenagelt,
bis die leere UF nach 3 Sekunden wieder verschwindet.
Ich habe schon testweise eine zweite UF generiert, die zwar wie
gewünscht 3 Sekunden erscheint, aber leider auch ohne Text.
Auch den Inhalt von Eigenschaften habe ich verglichen und
keine Fehler gefunden.
Ich komme einfach nicht dahinter. Kann jemand helfen?
Xl2003
Gruß und danke
Rolf
