hat jemand ne Ahnung wie lang der Text in der StatusBar maximalerweise sein darf?
Danke im Vorraus!
Gruß Benjamin
Sub test()
Dim i As Long
On Error GoTo Fehler
For i = 1 To 10000
Application.StatusBar = String(i, "a")
Next i
MsgBox "Keine Begrenzung gefunden"
Application.StatusBar = False
Exit Sub
Fehler:
MsgBox "Statusbar auf " & i & " Zeichen begrenzt."
Application.StatusBar = False
End Sub
Sub statusbar_test()
Dim i
For i = 1 To 1000
Debug.Print i;
Application.StatusBar = String(i, "1")
Debug.Print " ok"
Next i
Application.StatusBar = False
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen