| VBA-Beispiel 119 | |
|
|
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 |
|
relevante Links:
|
|
| |