For Schleife funktioniert nicht!
16.01.2019 20:01:12
Arthur
kannmir jemand helfen folgenden COden in eine SChleife zu packen?
ReDim vArr(1 To Tabelle3.Range("H5"), 1 To 1)
For i = 1 To UBound(vArr())
vArr(i, 1) = Tabelle3.Range("F5") + (i - 1) * DauerT
Next
With Tabelle3
Cells(24 + .Range("H4") + .Range("H3")+ .... .Range("H..."),8).Resize(UBound(vArr)) = vArr
End With
Ich schaffe es leider nicht ganz. Folgendes habe ich versucht:
Private Sub CommandButton2_Click()
Dim z As Integer
Dim i As Long
Dim j As Long
Dim vArr()
i = 3
For q = 3 To 6
ReDim vArr(1 To Tabelle3.Cells(i, 8), 1 To 1)
For z = 1 To UBound(vArr())
vArr(z, 1) = Tabelle3.Cells(i, 5) + (z - 1) * 14
Next
Cells(24 + i, 4).Resize(UBound(vArr)) = vArr
i = i + z
Next
Anzeige