Der Code wird angesprungen. Bin alle Schritte einzeln durchgegangen, es wird die ganze Schleife durchlaufen, es schreibt nur keinen Text in die Spalte der entsprechenden Zeile.

Hier nochmals der komplette Code:

Alles im Tabellenblatt 1, hier sind auch alle 4 Option Button vermerkt:

Private Sub OptionButton1_Click()

If OptionButton1 = True Then
Worksheets("Zuweisung").Select
Range("B16:B19").Select
Selection.FormulaR1C1 = "1"

Range("C16:C27").Select
Selection.NumberFormat = "0.0%"
Sheets("Zuweisung").Cells(17, 3) = "0.001"

Range("B20:B27").ClearContents
Range("C18:C27").ClearContents

Sheets("Verwaltung").Select
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Select Case LCase(Cells(i, 2))
Case ""
Cells(i, 7) = ""
Case "m"
Cells(i, 7) = "15"
Case "p"
Cells(i, 7) = "20"
Case "v"
Cells(i, 7) = "10"
End Select
Next i
Worksheets("Zuweisung").Select
Range("A1").Select

End If
End Sub


Private Sub OptionButton2_Click()

If OptionButton2 = True Then
Range("B16:B27").Select
Selection.FormulaR1C1 = "2"

Range("C16:C27").Select
Selection.NumberFormat = "0.0%"
Sheets("Zuweisung").Cells(17, 3) = "0.002"
Sheets("Zuweisung").Cells(20, 3) = "0.003"
Sheets("Zuweisung").Cells(21, 3) = "0.004"
Sheets("Zuweisung").Cells(24, 3) = "0.005"
Sheets("Zuweisung").Cells(26, 3) = "0.006"

Sheets("Verwaltung").Select
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Select Case LCase(Cells(i, 2))
Case ""
Cells(i, 7) = ""
Case "m"
Cells(i, 7) = "100"
Case "p"
Cells(i, 7) = "200"
Case "v"
Cells(i, 7) = "300"
End Select
Next i
Worksheets("Zuweisung").Select

Range("A1").Select
End If
End Sub


Private Sub OptionButton3_Click()

If OptionButton3 = True Then
Range("B16:B27").Select
Selection.FormulaR1C1 = "3"

Range("C16:C27").Select
Selection.NumberFormat = "0.0%"
Sheets("Zuweisung").Cells(17, 3) = "0.007"
Sheets("Zuweisung").Cells(20, 3) = "0.008"
Sheets("Zuweisung").Cells(21, 3) = "0.009"
Sheets("Zuweisung").Cells(24, 3) = "0.010"
Sheets("Zuweisung").Cells(26, 3) = "0.011"
Range("C17").Select

Sheets("Verwaltung").Select
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Select Case LCase(Cells(i, 2))
Case ""
Cells(i, 7) = ""
Case "m"
Cells(i, 7) = "400"
Case "p"
Cells(i, 7) = "500"
Case "v"
Cells(i, 7) = "600"
End Select
Next i
Worksheets("Zuweisung").Select




Range("A1").Select
End If

End Sub

Private Sub OptionButton4_Click()

If OptionButton4 = True Then
Range("B16:B27").Select
Selection.FormulaR1C1 = "4"


Range("C16:C27").Select
Selection.NumberFormat = "0.0%"
Sheets("Zuweisung").Cells(17, 3) = "0.012"
Sheets("Zuweisung").Cells(20, 3) = "0.013"
Sheets("Zuweisung").Cells(21, 3) = "0.014"
Sheets("Zuweisung").Cells(24, 3) = "0.015"
Sheets("Zuweisung").Cells(26, 3) = "0.016"
Range("C17").Select

Sheets("Verwaltung").Select
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Select Case LCase(Cells(i, 2))
Case ""
Cells(i, 7) = ""
Case "m"
Cells(i, 7) = "700"
Case "p"
Cells(i, 7) = "800"
Case "v"
Cells(i, 7) = "900"
End Select
Next i
Worksheets("Zuweisung").Select


Range("A1").Select
End If

End Sub