Hi hab ein UserForm, welches auf Knopfdruck in eine Tabelle eingetragen werden soll. Es enthält je eine Combobox aus der man einen Namen auswählt und in einer dazu geordneten TextBox steht ein Text. Es sollen natürlich nur die Textboxen übertragen werden, in deren ComboBoxes auch ein Name ausgewählt wurde.
Hab`s so versucht, funktioniert aber nicht. Er springt in "then" egal, ob Combobox leer ist oder nicht.
Ref = ComboBox1.Value
If IsEmpty(ComboBox1) = False Then
With Sheets(Ref)
.Activate
strLeereZelle = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(strLeereZelle, 2) = TextBox_Datum.Value
.Cells(strLeereZelle, 3) = ComBox_Heimteam.Value
.Cells(strLeereZelle, 4) = ComBox_Gastteam.Value
.Cells(strLeereZelle, 5) = ComBox_Liga.Value
.Cells(strLeereZelle, 6) = "R"
.Cells(strLeereZelle, 7) = "Beobachtung"
.Cells(strLeereZelle, 8) = TextBox1.Value
.Range(Cells(strLeereZelle, 1), Cells(strLeereZelle, 8)).Select
Selection.ShrinkToFit = True
End With
End If
Wäre total dankbar für Hilfe. Mercy =)
sascha