Office-Fragen.de

Hallo, haben diesen code und würde in gerne noch erweitern.

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

'hier soll meine Ergänzung noch hin

'im Sheet("Tagesblatt") Vorname und Name aus "TextVorname und TextName" ab K22 bis Max K35 eintragen
'Peter Lustig
'Karl Blau
' ....
'Letzetr eintrag wäre dan K35

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

End Sub


wäre super wenn mir jemand helfen würde
Danke

'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

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ß

Und?  soll ich dem Code gut zureden?  Zeig eine Beispieldatei. Damit man sieht wie dein Datenaufbau ist.
Eine Idee hab ich aber doch noch . Ändere K22 in K21