Einträge nur in bestimmter Range
29.01.2014 16:09:44
Marc
ich möchte gern über ein Optionbutton die Einträge in einer Zähle ermöglichen. Die Einträge sollen aber nur in einem bestimmten Bereich möglich sein.
Als Beispiel A1:A10
liegt die Selection außerhalb des Bereich soll eine Msgbox als Hinweis ausgegeben werden.
Code bisher:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OptionButton1.Caption = "1.Schicht"
OptionButton2.Caption = "2.Schicht"
OptionButton3.Caption = "Freizeit"
OptionButton4.Caption = "Anlernen"
OptionButton5.Caption = "Krank"
End Sub
Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Selection.Value = "1"
Else
End If
If OptionButton2 = True Then
Selection.Value = "2"
Else
End If
If OptionButton3 = True Then
Selection.Value = "Freizeit"
Else
End If
If OptionButton4 = True Then
Selection.Value = "Anlernen"
Else
End If
If OptionButton5 = True Then
Selection.Value = "Krank"
Else
End If
End Sub
Danke und Gruß