Schleifen und Ausgaben

Sub grundwerte()
Worksheets("Tabelle1").Activate
On Error Resume Next
Dim a As Variant
Dim b(9 To 29) As Variant
a = 100
b9 = 50
b10 = 25
bc11 = 25
c12 = 25
b13 = 5
b14 = 15
b15 = 15
b16 = 40
b17 = 50
b18 = 5
b19 = 5
b20 = 5
For i = 9 To 20
ActiveSheet.Cells(i, 16).Value = a
Next i
For k = 9 To 30
ActiveSheet.Cells(k, 17).Value = b & K
Next k
End Sub