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
|