Guten Tag in die Runde. Ich möchte einen Programmschritt automatisieren und damit Fehler bei der Eingabe vermeiden.
Ich will eine Vereinfachung bei der Dateneingabe erreichen, stoße dabei aber auf Probleme. Gebe mittels USERFORM einen Datensatz ein, und möchte erreichen, das dieser sobald ich den nächsten Datensatz eingebe, abgespeichert wird. Wenn ich das getrennt vornehme erscheint mir der neue Datensatz wie ich es gewohnt war. Bei der Verbindung über "Call cmdSave_Click" werden unkontrollierte ständig neue Datensätze bereit gestellt, die aber wie bisher in der USERFORM nicht sichtbar sind. Wenn es überhaupt möglich ist , könnte mich vielleicht jemand beim Code schreiben unterstützen. Danke und Gruß Josef
Ich will eine Vereinfachung bei der Dateneingabe erreichen, stoße dabei aber auf Probleme. Gebe mittels USERFORM einen Datensatz ein, und möchte erreichen, das dieser sobald ich den nächsten Datensatz eingebe, abgespeichert wird. Wenn ich das getrennt vornehme erscheint mir der neue Datensatz wie ich es gewohnt war. Bei der Verbindung über "Call cmdSave_Click" werden unkontrollierte ständig neue Datensätze bereit gestellt, die aber wie bisher in der USERFORM nicht sichtbar sind. Wenn es überhaupt möglich ist , könnte mich vielleicht jemand beim Code schreiben unterstützen. Danke und Gruß Josef
Code:
Sub cmdNew_Click()
Dim lZeile As Long
lZeile = 1
Do While Trim(CStr(wsAt.Cells(lZeile, 1).Value)) <> ""
lZeile = lZeile + 1
Loop
wsAt.Cells(lZeile, 1) = CStr("NR " & lZeile)
wsAt.Cells(lZeile, 2) = CStr("NeuMtgld ")
lstData.AddItem
lstData.List(lstData.ListCount - 1, 1) = CStr("NR " & lZeile)
lstData.ListIndex = lstData.ListCount - 1
Call cmdSave_Click
End Sub
Private Sub cmdSave_Click() ' Daten übertragen , Datei – Speichern [aktive Arbeitsmappe]
Dim lZeile As Long
Dim rngRow As Range
If lstData.ListIndex = -1 Then Exit Sub
If Trim(CStr(txtPosNr.Text)) = "" Then
MsgBox "Sie müssen mindestens eine Nummer eingeben!", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
'Zeile suchen und auslesen
If seekArb(txtPosNr, rngRow) Then 'Werte übernehmen
rngRow.Cells(, colAtPosNr).Value = Trim(CStr(txtPosNr.Text))
rngRow.Cells(, colAtNummer).Value = txtnummer.Text
rngRow.Cells(, colAtAnrede).Value = txtAnrede.Text
' usw. usw..........