Sub
OptionButton1_Click()
If
Sheets(
"Verwaltung"
).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
Worksheets(
"Zuweisung"
).
Select
Range(
"A1"
).
Select
End
If
End
Sub