+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Code ergänzen, Werte aus Userform eintragen (/thread-28581.html)
Code ergänzen, Werte aus Userform eintragen - PBCJürgen - 25.01.2023
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
RE: Code ergänzen, Werte aus Userform eintragen - ralf_b - 25.01.2023
'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
RE: Code ergänzen, Werte aus Userform eintragen - PBCJürgen - 26.01.2023
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ß
RE: Code ergänzen, Werte aus Userform eintragen - ralf_b - 26.01.2023
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