Hallo wie bekomme ich es hin das der eintrag aus der Combobox automatisch immer in die nächste leere zeile rutscht?
also von e5 auf e6 und beim nächsten mal in e7?einfach in die nächste leere zeile.
Private Sub Abmelden_Click()
hans = ComboBox1.Value & ":" & ComboBox2.Value
Sheets("Hans").Select
Range("e5").Value = hans
Range("c5").Value = "=today()"
If ComboBox1.Text & ComboBox2.Text <> "" Then
MsgBox ComboBox1.Text & ":" & ComboBox2.Text & "Abmeldung erfolgreich"
Else: MsgBox "Keine Angaben"
End If
vielen dank
|