25.01.2023, 23:58
'hier soll meine Ergänzung noch hin
Last = Sheets("Tagesblatt").Range("K22").End(xlDown).Row + 1
If Last <= 35 Then
Seets("Tagesblatt").Cells(Last, "K").Value = Gast.TextVorname.Value & " " & Gast.TextName.Value
End If
Last = Sheets("Tagesblatt").Range("K22").End(xlDown).Row + 1
If Last <= 35 Then
Seets("Tagesblatt").Cells(Last, "K").Value = Gast.TextVorname.Value & " " & Gast.TextName.Value
End If