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"
Else
Cells(zelle, 8) =
"männlich"
With
Me
Unload
Me
End
With
End
Sub