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