Checkbox VBA Code?

Question

Hallo @ all,

ich brauch mal wieder eure hilfe.

Ich habe eine Userform, in der ich 2 Text Boxen habe & 10 Checkboxen.
Nun möchte ich das wenn ich in die Textbox2 z:B. 5 eingebe
und dazu Checkbox 1 (Cbx) wähle, der Eintrag aus Textbox2 (Tbx)in meiner
Aufstellung in die erste Spalte nach dem Datum eingetragen wird.
Bsp.:
Box Spalte
Cbx1= "B"
Cbx2 = "D"
Cbx3= "F"
Cbx4= "H"
Cbx5= "J"
Cbx6= "L"
Cbx7= "N"
Cbx8= "P"
Cbx9= "R"
Cbx10= "T"

Das gleiche wenn nur ein Wert in Tbx3 steht.
Bsp.:
Box Spalte
Cbx1= "C"
Cbx2 = "E"
Cbx3= "G"
Cbx4= "I"
Cbx5= "K"
Cbx6= "M"
Cbx7= "O"
Cbx8= "Q"
Cbx9= "S"
Cbx10= "U"

Ist das umsetzbar?
Hier mein bisheriges Ergebnis, ich bekomme nur leider die Checkboxen nicht in den Code.

Datei

Mfg Benjamin

Answer 1

Danke Helmut,

Das bringt mich schon etwas weiter,
jedoch hat das jetzt noch nen Schönheitsfehler.

Habe im Code jetzt gesagt, das er beim laden der Userform in die Textboxen eine "0" setzen soll, damit er die Textboxen befüllt ohne das er nen Fehler ausgibt, wenn man nur einen Eintrag in eine Textbox setzt.
Jedoch, setzt er zwar beim laden der UserForm nen Focus in der Textbox2 aber man muss dann die "0" überschreiben und kann nicht sofort eine Eingabe machen!
Kennst du ne Möglichkeit das er die "0" gleich markiert, und man sie so mit einer Eingabe dann sofort überschreibt?

Ist halt notwendig wenn man nur in einer Textbox eine Eingabe macht, weil er sonst die Msgbox aufmacht wenn in einer der beiden Textboxen nichts steht.

Hoffe du verstehst mich!

MfG Benjamin
Datei

Answer 2

Hallo Benjamin,

ändere die Codes für die Aktivierung der Userformen wie folgt, dann wird die "0" in Textbox 2 schon markiert:

Private Sub UserForm_Activate()
TextBox1 = Date
TextBox2 = "0"
TextBox3 = "0"
TextBox2.SetFocus

'hier der zu ergänzende Teil für die Markierung des Inhalts von Textbox 2
With TextBox2
.SelStart = 0
.SelLength = Len(.Text)
End With

End Sub

Gruß

M.O.