|
Einen schönen späten Abend :)
ich bin neu in VBA, aber was muss das muss :)
Mein Problem:
ich habe ein UserForm in dem ich einige Textfelder habe und zwei OptionButton (männlich ; Weiblich).
Der OptionButton wird angeklickt und dann durch einen CommandButton in eine Tabelle fortlaufend eingefügt. Bei den Textfeldern funktioniert es, aber ch verzweifle an den OptionButton.
Ich freue mich über jede Hilfe
Mein Code bis jetzt
Private Sub cmb_Eintrag_Click()
Dim zelle As Long
zelle = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(zelle, 1) = TextBox1
If txt_Datum <> "" Then Cells(zelle, 1) = txt_Datum
If txt_Name <> "" Then Cells(zelle, 2) = txt_Name
If txt_Vorname <> "" Then Cells(zelle, 3) = txt_Vorname
If txt_Mail <> "" Then Cells(zelle, 4) = txt_Mail
If cmb_Dienst <> "" Then Cells(zelle, 5) = cmb_Dienst
If txt_Nummer <> "" Then Cells(zelle, 6) = txt_Nummer
If cmb_Sitz <> "" Then Cells(zelle, 7) = cmb_Sitz
If Button2 <> "" Then Cells(zelle, 8) = "weiblich"
If Button <> "" Then Cells(zelle, 8) = "männlich"
With Me
Unload Me
End With
End Sub
|