Code vereinfachen
10.01.2019 09:26:36
Nomanarmy
kann man diese Formel noch irgendwie vereinfachen?
Dim intRow As Integer
For intRow = 1 To Tabelle3.Range("H3").Value
Cells(intRow + 23, 2) = Tabelle3.Range("B3")
Next intRow
Dim intRow1 As Integer
For intRow1 = 1 To Tabelle3.Range("H4").Value
Cells(intRow + 22 + intRow1, 2) = Tabelle3.Range("B4")
Next intRow1
Dim intRow2 As Integer
For intRow2 = 1 To Tabelle3.Range("H5").Value
Cells(intRow + intRow2 + 21 + intRow1, 2) = Tabelle3.Range("B5")
Next intRow2