Office: For 4a To 4d...

Hallo liebe Helfer,

ich möchte eine For-Schleife in der Art durchlaufen:
4a, 4b, ..., 4d

Wie kann ich das machen?
Ich habe schon etwas programmiert, aber irgend wie gibt mir das bloß die "4" wieder. Was ist da falsch?


Sub zaehlen()
Dim Feld(3) As String
Dim k As String

Feld(0) = a
Feld(1) = b
Feld(2) = c
Feld(3) = d

For i = 0 To 3
k = "4" & Feld(i)
For z = 1 To 17
If Cells(z, 1) = k Then
Cells(z, 5) = k
End If
Next z
Next i
End Sub


Wer hat eine Idee, wo der Fehler steckt, ich finde ihn nicht. Oder gibt es da vielleicht eine viel bessere, schnellere und konfortablere Lösung?
Liebe Dank

 

Hallo!

Ungetestet:

Feld(0) = "a"
Feld(1) = "b"
Feld(2) = "c"
Feld(3) = "d"

 

wow, danke Schatzi, hat funktioniert. :)