Text in Status Bar zentrieren

Forumthread: Text in Status Bar zentrieren
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Text in Status Bar zentrieren

05.11.2017 10:15:16

Mister-B

Hallo und guten Morgen,
ist es möglich einen Text im Status Bar zu zentrieren und wenn, ja wie?
Danke und Gruß Martin

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

nicht ganz ...

05.11.2017 10:45:39

Matthias
AW: nicht ganz ...

05.11.2017 13:22:47

Mister-B

nicht ganz ...

05.11.2017 10:45:39

Matthias

Hallo
Die Länge des Strings ist Limitiert!
Anbei ein Beispiel dafür

Option Explicit
Sub MyStatusbar()
Dim myTxt$, WDH&
On Error GoTo Fehler
WDH = InputBox("Leerzeichenmultplikator für Leerzeichenwiederholung in Länge des Strings")
myTxt = "Das ist mein Text"
If Not IsNumeric(WDH) Then Exit Sub
If (WDH * Len(myTxt)) + (Len(myTxt)) > 255 Then
MsgBox "Zeichelänge zu groß! >=255", vbCritical, " Limit ..."
Application.StatusBar = False
Exit Sub
Else
Application.StatusBar = Application.WorksheetFunction.Rept(" ", WDH * Len(myTxt)) & myTxt
Debug.Print (WDH * Len(myTxt)) + (Len(myTxt)) 'Optional
End If
Exit Sub
Fehler:
Application.StatusBar = False
End Sub

Gruß Matthias

AW: nicht ganz ...

05.11.2017 13:22:47

Mister-B

Hallo Matthias,
schade darum. Ich muss mich damit abfinden, dass es nicht geht. Danke trotzdem.
Gruß
Martin