Daten in gleicher Zeile eintragen
Josef
Mit unten stehendem Code werden die Daten über eine UserForm in die Tabelle eingetragen.
Wenn jedoch in einer Spalte im Tabellenblatt kein Eintrag ist, werden die Daten in die nächste freie Zelle in der Spalte eingetragen.
Wie kann ich es bitte erreichen, dass die Daten des Datensatzes in einer Reihe eingetragen werden?
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Set wks = Workbooks("Vertrauensärzteverzeichnis.xls").Worksheets("Tabelle1")
wks.Range("b65536").End(xlUp).Offset(1, 0).Value = TextBox1.Text 'Bundesland Zahl
wks.Range("c65536").End(xlUp).Offset(1, 0).Value = ComboBox4.Text 'Bezirk
wks.Range("d65536").End(xlUp).Offset(1, 0).Value = TextBox3.Text 'Anrede
wks.Range("e65536").End(xlUp).Offset(1, 0).Value = TextBox2.Text 'Titel
wks.Range("f65536").End(xlUp).Offset(1, 0).Value = TextBox6.Text 'Zuname
wks.Range("g65536").End(xlUp).Offset(1, 0).Value = TextBox7.Text 'Vorname
wks.Range("i65536").End(xlUp).Offset(1, 0).Value = ComboBox1.Text 'FG Text
wks.Range("j65536").End(xlUp).Offset(1, 0).Value = TextBox11.Text 'Zusatz
wks.Range("k65536").End(xlUp).Offset(1, 0).Value = TextBox12.Text 'PLZ
wks.Range("l65536").End(xlUp).Offset(1, 0).Value = TextBox13.Text 'Ort
wks.Range("m65536").End(xlUp).Offset(1, 0).Value = TextBox14.Text 'Adresse
wks.Range("n65536").End(xlUp).Offset(1, 0).Value = TextBox15.Text 'EU
wks.Range("o65536").End(xlUp).Offset(1, 0).Value = TextBox16.Text 'PG1
wks.Range("p65536").End(xlUp).Offset(1, 0).Value = TextBox17.Text 'PG2
wks.Range("q65536").End(xlUp).Offset(1, 0).Value = TextBox18.Text 'GW1
wks.Range("r65536").End(xlUp).Offset(1, 0).Value = TextBox19.Text 'GW2
wks.Range("s65536").End(xlUp).Offset(1, 0).Value = TextBox15.Text 'EMAIL1
wks.Range("t65536").End(xlUp).Offset(1, 0).Value = TextBox16.Text 'EMAIL2
wks.Range("u65536").End(xlUp).Offset(1, 0).Value = TextBox17.Text 'EMAIL3
wks.Range("v65536").End(xlUp).Offset(1, 0).Value = TextBox19.Text 'Anmerkung
Unload Me
End Sub
Danke Josef
