Guten Tag,
habe ein kleinen VBA Code geschrieben um aus einem Fragenkatalog zufällig eine Klausur zu erstellen. Funktioniert auch soweit super, bis auf eine Kleinigkeit.
Hier mal der Ausschnitt aus dem Code der mir Probleme bereitet:
Dim ZufallsZahl(1 To 10) As Integer
Dim Anzahl As Integer
Dim Gesamt As Integer
'In Zelle L2 ist die Anzahl der gewünschten Fragen eingetragen
Anzahl = Worksheets("Klausur").Range("L2").Value
'In Zelle F2 ist die Gesamtanzahl aller Fragen, aus denen gewählt werden kann eingetragen
Gesamt = Worksheets("Fragenkatalog").Range("F2").Value
For i = 1 To Anzahl
ZufallsZahl(i) = Int((Gesamt * Rnd) + 1)
Next
End Sub
Folgendes Problem: Wenn ich im Blatt "Klausuren" die Tabelle mit den Klausurfragen erweitern möchte, sprich die Anzahl der gewünschten Klausurfragen in Zelle "L2" veränder (s.o.) muss ich jedesmal die Deklaration der Zufallszahlen ändern.
Also wenn 10 aus 'Gesamt' gewählt werden sollen dann:
Dim ZufallsZahl(1 To 10) As Integer
wenn z.B. 20 aus 'Gesamt' gewählt werden sollen dann:
Dim ZufallsZahl(1 To 20) As Integer
Habe versucht mit
Dim ZufallsZahl(1 To Anzahl) As Integer das ganze zu umgehen, klappt aber natürlich nicht weil Anzahl kein const. Audruck ist, da Anzahl ja variieren kann.
Jedoch variiert Anzahl NICHT während das Makro durchläuft.
Falls jemand eine geniale Idee hat wäre ich sehr dankbar. Hoffe das Problem ist deutlich geworden.
Mfg