Hallo!
Ich wollte mit folgendem Code einen neuen Datensatz in ein Tabellenblatt über eine Userform eintragen lassen. Das funktioniert aber deswegen nicht weil in jeder Spalte die nächste freie Zelle herangezogen wird.
Der Eintrag eines Datensatzes sollte jedoch in der selben Zeile erfolgen. wie würde hier bitte eine VBA lösung aussehen, wenn der Eintrag eines neuen Datensatzes in Abhängigkeit einer neuen Datensatznummer in der nächsten freien Zelle der Spalte A in derselben Zeile eingetragen werden soll?
Danke
Josef
On Error Resume Next
Dim wks As Worksheet
Set wks = Workbooks("Stellenpläne.xls").Worksheets("Tabelle1")
'hier wird meldung erzeugt ob daten geändert werden sollen
Dim mldg, stil, titel, grc
mldg = "Neuen Datensatz wirklich speichern?"
stil = vbYesNo + vbCritical + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc = vbYes Then
Else
Exit Sub
End If
wks.Range("a65536").End(xlUp).Offset(1, 0).Value = TextBox64.Text 'Abschnitt laufende Nummer
wks.Range("c65536").End(xlUp).Offset(1, 0).Value = ComboBox37.Text 'Abschnitt Text
wks.Range("d65536").End(xlUp).Offset(1, 0).Value = TextBox49.Text 'Kapitel laufende Nummer
wks.Range("e65536").End(xlUp).Offset(1, 0).Value = TextBox38.Text 'Kapitel Text
wks.Range("f65536").End(xlUp).Offset(1, 0).Value = TextBox63.Text 'Subkapitel laufende Nummer
wks.Range("g65536").End(xlUp).Offset(1, 0).Value = TextBox62.Text 'Subkapitel Text
wks.Range("h65536").End(xlUp).Offset(1, 0).Value = TextBox61.Text 'Kurzposition
wks.Range("i65536").End(xlUp).Offset(1, 0).Value = TextBox40.Text 'Indikation
wks.Range("j65536").End(xlUp).Offset(1, 0).Value = TextBox41.Text 'Info
wks.Range("k65536").End(xlUp).Offset(1, 0).Value = TextBox42.Text 'VO_BEST
wks.Range("l65536").End(xlUp).Offset(1, 0).Value = TextBox51.Text 'Beschreibung
wks.Range("m65536").End(xlUp).Offset(1, 0).Value = TextBox43.Text 'Rehab
wks.Range("n65536").End(xlUp).Offset(1, 0).Value = TextBox60.Text 'Artnr
wks.Range("o65536").End(xlUp).Offset(1, 0).Value = ComboBox38.Text 'STKANZ
wks.Range("p65536").End(xlUp).Offset(1, 0).Value = TextBox45.Text 'Funktion
wks.Range("q65536").End(xlUp).Offset(1, 0).Value = TextBox44.Text 'Wirkungsweise
wks.Range("r65536").End(xlUp).Offset(1, 0).Value = TextBox47.Text 'Erklärung
wks.Range("s65536").End(xlUp).Offset(1, 0).Value = TextBox46.Text 'Ausführung
wks.Range("t65536").End(xlUp).Offset(1, 0).Value = TextBox56.Text 'Erzeuger
wks.Range("u65536").End(xlUp).Offset(1, 0).Value = TextBox50.Text 'Körperregion
wks.Range("v65536").End(xlUp).Offset(1, 0).Value = ComboBox39.Text 'Laborparameter
wks.Range("w65536").End(xlUp).Offset(1, 0).Value = TextBox53.Text 'Leihgebühr
wks.Range("x65536").End(xlUp).Offset(1, 0).Value = TextBox54.Text 'ÜGR
wks.Range("y65536").End(xlUp).Offset(1, 0).Value = TextBox55.Text 'HGR
wks.Range("z65536").End(xlUp).Offset(1, 0).Value = TextBox52.Text 'UGR
wks.Range("aa65536").End(xlUp).Offset(1, 0).Value = TextBox53.Text 'Statistik
wks.Range("ab65536").End(xlUp).Offset(1, 0).Value = TextBox58.Text 'Statistik Text
wks.Range("ac65536").End(xlUp).Offset(1, 0).Value = TextBox59.Text 'FOKO Bereich
End Sub