For k = 1 To 20
 
Dim arPV(35041, 20) As Variant 'hier würde ich gerne k als 2. Dim eintragen
 
Dim i As Double
 
For i = 1 To 35041
    arPV(i, k) = 0
 
 
'Auswählen des Erzeugungs-Profils über ComboBox
 
Select Case cbPV_Daten.ListIndex
 
    Case Is = 0
'In der Folgenden Zeile ist der Fehler
        arPV(i, k) = Worksheets("Erzeugung PV").Range("C2:C35042").Value
 
For i = 1 To 35041
        arPV(i, k) = arPV(i, k) * dblPV_Anlagen_Größe * dblEnergieErtrag * _
          0.995 ^ k
        Next i
 
        Worksheets("Tabelle1").Range(Worksheets("Tabelle1").Cells(3, 3), _
          Worksheets("Tabelle1").Cells(35043, 3)) = arPV(i, k)