VBA-Beispiel 119
mail schreiben
mail schreiben

String mit fester Länge deklarieren

Im folgenden Beispiel wird ein String mit fester Länge deklariert.
Der String hat immer eine Länge von drei Zeichen.
Überschüssige Zeichen werden rechts abgeschnitten, fehlende Zeichen mit Leerzeichen aufgefüllt.
Public Sub ZF_feste_Länge()
Dim strText As String * 3    'Zeichenfolge mit fester Länge

'überschüssige Zeichen werden rechts abgeschnitten
strText = "abcde"

Cells(1, 1) = strText
Cells(1, 2) = Len(strText) & " Zeichen"
MsgBox strText, , Len(strText) & " Zeichen"

'fehlende Zeichen werden mit Leerzeichen aufgefüllt
strText = "a"

Cells(2, 1) = strText
Cells(2, 2) = Len(strText) & " Zeichen"
MsgBox strText, , Len(strText) & " Zeichen"

End Sub

Download:   vba119.zip