Array füllen per Mid-Funktion
19.07.2014 15:32:12
Andre
ich habe ein Problem und komme nicht auf die Lösung.
Ich will einen Text Zeichen für Zeichen in ein Array übertragen. Dazu habe ich mir folgendes Script geschrieben:
Sub Array_fuellen()
Dim A
Dim Arr_A(8)
Dim x
A = "test"
For x = 1 To 8
Arr_A(x) = UCase(Mid(A, x, 1))
Next x
Worksheets("Tabelle1").Range("A1") = Join(Arr_A)
End Sub
Das Script läuft ohne Fehler durch. Wenn ich mir jetzt den Inhalt von A1 anschaue, so habe ich folgenden Aufbau:
Leerzeichen T Leerzeichen E Leerzeichen S Leerzeichen T Leerzeichen usw.
Woher kommen die Leerzeichen?
Ich möchte weiterhin erreichen, das das Array immer 8 Zeichen hat, egal was als Text vorgegeben ist. Die fehlenden Zeichen sollen mit Platzhaltern aufgefüllt werden. Ideal wäre hier Null (nichts).
Vielleicht kann mir jemand dafür einen Tip geben.
Besten Dank!