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