Hi,
ich würde gerne die Zeichen von zum Beispiel Hello einzeln auslesen, d.h
Text = hello
Ausgabe:
h
e
l
l
o

Nun müsste ich diese ja aus dem String auslesen, dachte ich mir verwende mal die Mid-Funktion:

Code :

1 2 3 4 5 6 7 8 9 10

Private Sub Form_Load() Dim test As String Dim n As Long   n = 0 For n = 0 To 4 MsgBox (Mid("hello", n, 1))   Next End Sub

Leider funktioniert Mid anscheinend nicht mit einer Variable. Habt ihr vielleicht ein Workaround oder eine andere Funktion die ich verwenden könnte ?

Danke schon mal im vorraus.

mfg

Dein Mid("hello", n, 1) bringt wohl einen Fehler.

Das liegt aber eher daran, dass eine zeichenfolge mit der startposition 1, und nicht mit 0 beginnt.

Code :

1 2 3 4 5 6 7 8 9 10

Private Sub Form_Load() dim test as String Dim n As Long test = "test"   For n = 1 To len(test) (Vor dieser Position braucht n keine wertzuweisung, das passiert doch hier) MsgBox (Mid(test, n, 1))   Next End Sub

So sollte es klappen, und die schleife klappt auch für jedes wort, welches test zugewiesen wird.

Jo super funktioniert, danke, lag wirklich an dem n = 0 oO