Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Daten übertragen die Zweite

Betrifft: Daten übertragen die Zweite von: Stefan Glander
Geschrieben am: 08.11.2014 15:01:11

Hallo Forum,

momentan übergebe ich die Daten aus eine UF mit folgendem Code:

Private Sub CommandButton7_Click()
Dim loLetzte As Long
 loLetzte = Sheets("Mitglieder").Cells(Rows.Count, 3).End(xlUp).Row + 1 

 With Sheets("Mitglieder")
     .Cells(loLetzte, 3).Value = TextBox1.Value
     .Cells(loLetzte, 4).Value = TextBox2.Value
     .Cells(loLetzte, 5).Value = TextBox3.Value
     .Cells(loLetzte, 6).Value = TextBox4.Value
     .Cells(loLetzte, 7).Value = TextBox5.Value
     .Cells(loLetzte, 8).Value = TextBox6.Value
 End With
leeren
End Sub
Nun habe ich eine Listbox zusätzlich eingebaut, die einen Blattnamen an Textbox7 übergibt.
Wie spreche ich nun mit dem Commandbutton7 das Richtige Blatt an?
Meine Versuche den Code in Zeile 3 und 4 zu ändern, waren nicht erfolgreich.

Gruß
Stefan

  

Betrifft: AW: Daten übertragen die Zweite von: Hajo_Zi
Geschrieben am: 08.11.2014 15:03:41

Hallo Stefan

With Sheets(Textbox7)

GrußformelHomepage


  

Betrifft: AW: die frage hattest du schon gestellt von: Daniel
Geschrieben am: 08.11.2014 15:06:33

Und sie wurde von mir beantwortet!
Gelesen hast du es auch schon.
Warum nochmal?


  

Betrifft: AW: Sorry, war mir .... von: Stefan Glander
Geschrieben am: 08.11.2014 17:51:17

nicht klar das es sowohl in Zeile 3 als auch 4 in dem Code klappt.

Trotzdem recht herzlichen Dank.

Gruß
Stefan


 

Beiträge aus den Excel-Beispielen zum Thema "Daten übertragen die Zweite"