Ich möchte in einen Sheets den Wert von TextBox1 in die erste leere Zelle von Spalte A eintragen.
Das funktioniert auch,aber TextBox2 , TextBox3 ,TextBox4 sollten daneben in Spalte B,C,D eingefügt werden.
Da habe ich Probleme.
Könnte mir dazu bitte jemand weiterhelfen?
Gruß
Heinz
Private Sub CommandButton6_Click()
Worksheets("Mitarbeiterblatt").Cells(1, 1).End(xlDown).Offset(1, 0).Value = TextBox1.Text ' _
Familienname
Worksheets("Mitarbeiterblatt").Cells(1, 2).End(xlDown).Offset(0, 1).Value = TextBox2.Text ' _
Vorname
Worksheets("Mitarbeiterblatt").Cells(1, 3).End(xlDown).Offset(0, 1).Value = TextBox3.Text ' _
Straße
Worksheets("Mitarbeiterblatt").Cells(1, 4).End(xlDown).Offset(0, 1).Value = TextBox4.Text ' PLZ
Unload Me
End Sub