Hallo Leute,

ich bekomm immr ein Laufzeitfehler. Ich dachte es liegt an den Datentypen. Ich habe schon einiges ausprobiert, konnte den fherl aber nicht beheben. Könnte ihr mir einen Tipp geben?! Der Fehler tritt dann der Fett markierten Stelle auf.

Sub AuftragsszenarienErstellen()

Dim ar_rng()
Dim i As Long
Dim AktSpalte As Integer
Dim StartSpalte As Integer
Dim j As Integer
Dim Anzahl As Integer
Dim AufträgeJeSzenario As Integer
Dim AnzahlSzenarien As Integer
Dim k As Integer

k = 1
Anzahl = 3
StartSpalte = 3
AnzahlSzenarien = 30
AufträgeJeSzenario = 1400

For AktSpalte = StartSpalte To Anzahl Step 3

If Cells(1, AktSpalte) = "" Then
    ar_rng = Range(Cells(1, AktSpalte), Cells(AnzahlSzenarien * AufträgeJeSzenario, AktSpalte))
    For i = 1 To AnzahlSzenarien * AufträgeJeSzenario
        ar_rng(i, 1) = Cells(Int(Rnd() * 59 + 1), "A").Value
    Next
    Range(Cells(1, AktSpalte), Cells(AnzahlSzenarien * AufträgeJeSzenario, AktSpalte)) = ar_rng()
End If

If Cells(1, AktSpalte + 1) = "" Then
    ar_rng = Range(Cells(1, AktSpalte + 1), Cells(AnzahlSzenarien * AufträgeJeSzenario, AktSpalte + 1))
    For i = 1 To AnzahlSzenarien * AufträgeJeSzenario
        ar_rng(i, 1) = Cells(Int(Rnd() * 12 + 1), "B").Value
    Next
    Range(Cells(1, AktSpalte + 1), Cells(AnzahlSzenarien * AufträgeJeSzenario, AktSpalte + 1)) = ar_rng()
End If

If Cells(1, AktSpalte + 2) = "" Then
   
    ar_rng = Range(Cells(1, AktSpalte + 2), Cells(AnzahlSzenarien * AufträgeJeSzenario, AktSpalte + 2))
    For k = 1 To AnzahlSzenarien
    For i = (k - 1) * AufträgeJeSzenario + 1 To k * AufträgeJeSzenario
        ar_rng(i, 1) = k
        Next
        Next k
    Range(Cells(1, AktSpalte + 2), Cells(AnzahlSzenarien * AufträgeJeSzenario, AktSpalte + 2)) = ar_rng()
End If

Next AktSpalte

End Sub