hab mal eine bescheidene Frage an die VBA Götter.
Kann man bei "vbTab" die Länge des TAB ändern ? und wenn wie.
Liebe Nordhessische Grüsse
Bernd
While Len(zeilenarr(0))
und vbTab ist leider eine Programmkonstante ..... ;(
txt = "DeinText"
txt = txt & string(20 - Len(txt), " ")
'oder
txt = left(txt & string(20, " "), 20)
wobei die erste Variante nur dann fehlerfrei funktioniert, wenn der Text selbst nicht länger als 20 Zeichen ist.
Dim wieoft
wieoft = 4
MsgBox "Hallo" & Application.WorksheetFunction.Rept(vbTab, wieoft) & "!"
Gruß Matthias
Sub Beispiel()
Dim wieoft&
wieoft = 4
MsgBox "Hallo" & Application.WorksheetFunction.Rept(vbTab, wieoft) & "!"
MsgBox "Hallo" & String(wieoft, vbTab) & "!"
End Sub
Gruß Tino
Verwendung von vbTab:
vbTab verwenden. Beachte jedoch, dass die Länge des Tabulators nicht verändert werden kann, da vbTab ein Steuerzeichen ist.Tabulator mit Leerräumen füllen:
While Len(zeilenarr(0)) < gewünschteLänge
zeilenarr(0) = zeilenarr(0) & " "
WendAlternativen zur Verwendung von vbTab:
STRING-Funktion nutzen, um mehrere Tabulatoren zu erzeugen:
txt = "DeinText"
txt = txt & String(20 - Len(txt), " ")Fehler: Tabulatoren erscheinen nicht gleichmäßig.
STRING-Funktion arbeitest.Fehler: Verwendung von vbTab führt zu unerwarteten Ergebnissen.
vbTab nicht anpassbar ist. Verwende stattdessen Leerräume oder die STRING-Funktion, um die gewünschte Tabulatorlänge zu erreichen.Verwendung von Chr(9):
Chr(9) ist der ASCII-Code für einen Tabulator und kann ebenfalls in Strings verwendet werden, jedoch ohne die Möglichkeit, die Länge zu ändern.Tabulator in Excel:
CHAR(9)-Funktion Tabulatoren in Zellen verwenden. Diese Methode ist jedoch in VBA nicht direkt übertragbar.Beispiel: Verwendung von vbTab:
Dim wieoft As Integer
wieoft = 4
MsgBox "Hallo" & Application.WorksheetFunction.Rept(vbTab, wieoft) & "!"
Beispiel: Verwendung von STRING:
Sub Beispiel()
Dim wieoft As Integer
wieoft = 4
MsgBox "Hallo" & String(wieoft, vbTab) & "!"
End Sub
Nutze Variablen statt fester Zahlen, um die Flexibilität deines Codes zu erhöhen:
txt = "DeinText"
txt = txt & String(20 - Len(txt), " ")
Berücksichtige die Länge der Strings, bevor du Tabulatoren oder Leerzeichen hinzufügst, um Fehler zu vermeiden.
1. Kann ich die Länge von vbTab ändern?
Nein, die Länge von vbTab ist festgelegt und kann nicht verändert werden.
2. Wie kann ich einen anpassbaren Tabulator in VBA erstellen?
Verwende stattdessen Leerzeichen oder die STRING-Funktion, um die Darstellung anzupassen.