CheckBox Wert Eintragen
26.11.2007 12:03:46
Heinz
Ich möchte gerne wie im unteren Grafik Beispiel,Bei CheckBox 1 "Urlaub" , In CheckBox2 "Bez.Freizeit" & in CheckBox3 "Krank" jeweil in die dazugehörige Spalte L eintragen.
Weiters sollte nur eine CheckBox aktiviert werden dürfen.
Den Code für TextBoxen habe ich, siehe unten.
Könnte mir dabei bitte jemand Helfen.
Gruß Heinz
Option Explicit
Private Sub CommandButton1_Click()
With UserForm3
MeinBereich = CDate(Format(.TextBox1, "dd.mm.yyyy"))
MeinBereich.Offset(0, 1) = CDate(MeinBereich)
MeinBereich.Offset(0, 2) = .TextBox2
MeinBereich.Offset(0, 3) = .TextBox3
MeinBereich.Offset(0, 4) = .TextBox4
MeinBereich.Offset(0, 5) = .TextBox5
MeinBereich.Offset(0, 11) = .TextBox6
End With
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
With UserForm3
.TextBox1 = MeinBereich
.TextBox2 = MeinBereich.Offset(0, 2)
.TextBox3 = MeinBereich.Offset(0, 3)
.TextBox4 = MeinBereich.Offset(0, 4)
.TextBox5 = MeinBereich.Offset(0, 5)
End With
End Sub
Anzeige