Einfügen per VBA
tobi
ich habe ein Problem mit User Forms.
habe mir eine VorlageBox gemacht und bin gerade dabei die Daten die ich eingegebn habe auf das Tabellenblatt zuzuordnen.
wie kann ich den bestimmen das b9 seine Anfangszelle ist.
habe bisher das geschrieben
Private Sub CommandButton3_Click()
Set Frm = UserForm1
Sheets("Kundenliste").Activate
Range("B207").End(xlUp).Offset(1, 0).Select
With Frm
ActiveCell.Value = .TextBox1.Value 'Firmenbezeichnung
ActiveCell.Offset(0, 0).Value = TextBox2.Value 'KdNr
ActiveCell.Offset(0, 5).Value = TextBox3.Value 'Nachname
ActiveCell.Offset(0, 6).Value = TextBox3.Value 'Vorname
ActiveCell.Offset(0, 1).Value = TextBox4.Value 'Strasse
ActiveCell.Offset(0, 2).Value = TextBox5.Value 'PLZ Ort
ActiveCell.Offset(0, 3).Value = TextBox6.Value 'Tel
ActiveCell.Offset(0, 4).Value = TextBox7.Value 'Fax
End With
End Sub
gruss tobi
Anzeige