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)

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"