Hi Tom,
danke schon mal für deine Hilfe.
Leider nimmt er das nicht an.
Wenn ich den Code so eingebe:
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
kommt die Fehlermeldung : Fehler beim Kompilieren: Else ohne If
Ich weiß nicht, wie ich diesen Fehler lösen kann
MfG Teresa
|