String/Text formatieren

[Anne Haubrich]

Hallo VBA-Gemeinde,

ich möchte gerne meinen Text/String formatieren. Schaut euch dazu bitte meinen folgenden Code an.

Code:

Sub Text_Formatieren()
Dim str
str = "Michael"
Debug.Print str & String(20 - Len(str), " ") & "|"
str = "Nena"
Debug.Print str & String(20 - Len(str), " ") & "|"
str = "Joachim Schmidt"
Debug.Print str & String(20 - Len(str), " ") & "|"
str = "Beckenbauer"
Debug.Print str & String(20 - Len(str), " ") & "|"
End Sub

Das "|" - Zeichen steht immer genau an der gleichen Stelle relativ zum Anfang. Meine Preisfrage an euch:
Geht's auch anders/besser? Mit dem Befehl Format bin ich bislang da nicht weitergekommen bzw. habe auch
keine Lust alles auszuprobieren. Danke schon mal für eure Hilfe.

[Jonas0806]

Hallo,

was soll denn das Ziel dieser Aktion sein? Und was das genaue gewünschte Ergebnis?

[schauan]

Hallöchen,

z.B. so, mal nur für den Michael

Sub Format2()
Dim str As String * 20
str = "Michael"
Debug.Print str & "|"
End Sub

[snb]

Code:

Sub M_snb()
  MsgBox Left("abcde" & Space(20), 20) & "|"
  MsgBox Left("ab" & Space(20), 20) & "|"
  MsgBox Left("abcdefghijklmnop" & Space(20), 20) & "|"
End Sub

[lupo1]

Anne, Du hattest schon das Optimum (ich vermute, mit Festbreitenschrift).

[schauan]

Hallo Lupo,

da bin ich nicht von überzeugt