Private
Sub
CheckBox21_Click()
If
CheckBox21
Then
Worksheets(
"Outdoor"
).Range(
"C14"
) =
"Einbau von 1x AMP"
Else
Worksheets(
"Outdoor"
).Range(
"C14"
) =
""
End
If
End
Sub
Private
Sub
CheckBox22_Click()
If
CheckBox22
Then
Worksheets(
"Outdoor"
).Range(
"C14"
) =
"Einbau von 1x UMP"
Else
Worksheets(
"Outdoor"
).Range(
"C14"
) =
""
End
If
End
Sub
Private
Sub
CheckBox23_Click()
If
CheckBox23
Then
Worksheets(
"Outdoor"
).Range(
"C14"
) =
"Einbau von 1x VHS"
Else
Worksheets(
"Outdoor"
).Range(
"C14"
) =
""
End
If
End
Sub