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) & " "
Wend
Alternativen 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.
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