Hallo,

ich hätte nochmals ein Problem und zwar wollte ich eine Array mit folgenenden Code erstellen lassen:

Private Sub CommandButton3_Click()

Dim Stellen()
Dim Wert As String
Dim Zähler As Integer
Dim y As Long
Dim x As String
x = 1
y = 0
Zähler = 1

Do

Wert = Left(Right(Range("M41").Value, Zähler), 1)

If Wert = 1 Then

Stellen(y) = x
x = 0
y = y + 1

End If

Zähler = Zähler + 1
x = x + 1
Loop Until Zähler = Len(Range("M41")) + 1

MsgBox Stellen

End Sub

Leider kommt es beim einlesen des Wertes immer zu dem Fehler Index außerhalb des gültigen Bereichs.

Vielleicht könt Ihr mir helfen. Mit freundlichen Grüßen, Phillip