Hallo,
ich bekomme einen Fehler nach Einblenden einer Textbox, die für 3 Sekunden angezeigt bleiben soll.
Der Fehler lautet '50290 Methode wait für Objekt_Application fehlgeschlagen'.
Allein komme nicht wirklich weiter und bitte Euch um Unterstützung.
Private Sub UserForm_Activate()
On Error GoTo Errorhandler
TextBox1.BackColor = ActiveSheet.Cells(2, 1).Interior.Color
TextBox1.Value = "In dieses Blatt nur Daten für:" & Chr(13) & Chr(13) & Chr(13) & _
">> " & ActiveSheet.Name & " "Korrekturen für fehlerhafte Zuordnungen bitte manuell vornehmen!"
Application.Wait Now + TimeSerial(0, 0, 3)
Unload Me
Exit Sub
.....
Besten Dank Reiner