Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Code ergänzen, Werte aus Userform eintragen
#1
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
Zitieren
#2
'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
Zitieren
#3
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ß
Zitieren
#4
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
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions