Code ergänzen, Werte aus Userform eintragen

[PBCJürgen]

Danke Ralf,

Private Sub Button_Übernehmen_Click()

Dim Last As Integer
Last = Sheets("Gästeliste").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Gästeliste").Cells(Last, 1).Value = Gast.TextDatum.Value
Sheets("Gästeliste").Cells(Last, 2).Value = Gast.TextVorname.Value
Sheets("Gästeliste").Cells(Last, 3).Value = Gast.TextName.Value
Sheets("Gästeliste").Cells(Last, 4).Value = Gast.TextVerein.Value


 Last = Sheets("Tagesblatt").Range("K22").End(xlDown).Row + 1
Da bricht der code ab


If Last <= 35 Then
  Sheets("Tagesblatt").Cells(Last, "K").Value = Gast.TextVorname.Value & " " & Gast.TextName.Value
 
End If

TextVorname = ""
TextName = ""
TextVerein = ""

End Sub



ich weis da nicht weiter

Gruß