Daten übertragen die Zweite
08.11.2014 15:01:11
Stefan Glander
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
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