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