Ich möchte mithilfe eines BuchstabenArrays verschiedene Buchstaben in einer Zeichenkette einfügen.

Das Array ist eingerichtet und alle notwendigen und vorgeschriebenen Code-Teile ebenfalls.

Wenn ich nun auf F5 drücke, werden die leeren Zellen zwar gefüllt, aber immer nur mit demselben Buchstaben.

Dieser Teil des Codes sieht so aus:

Randomize

For i = 12 To 20  'i = Spaltennummern

If IsEmpty(Cells(9, i)) Then        'alle Zellen durchlaufen x2

Cells(9, i).Value = Index(x2 - 1)

End If

Next i
 

(x2 = Int((6 - 2 * Rnd) + 1)

Ich bitte um Auskunft: wo ist der Fehler bzw. die Erweiterung des Codes

Arno Keck

Excel 2013, Windows 10