Formular ändert Datensatz

Liebe Freunde des Tabellenblattes,
ich bin versuche mit mit der Zeit an immer aufwendigeren "Projekten" die mir mein Leben auf Arbeit ein wenig vereinfachen sollen. Da ich leider den Umgang mit VBA noch erlerne, benötige ich mal wieder eure Hilfe.
Ich habe eine Formular gestaltet, womit ich eine Liste ergänzen möchte. Das erste Feld des Formulars ist ein Dropdown-Menü womit ich den Datensatz auswähle, den ich Ergänzen möchte. Dieser steht in dem Tabellenblatt "Übersicht" in der Spalte A2:A1000. Durch die Eingabe in den übrigen Textfeldern und dem anschließenden klicken auf den Comandbutton "Übernehmen" soll der ausgewählte Datensatz ergänzt werden.
Nachfolgenden Code habe ich schon herausbekommen. Wie ich jedoch das mit dem Auswählen des _
Datensatzes hinbekomme weiß ich leider nicht.


Private Sub cbxVOL_Nummern_Change()
Set gefunden = Worksheets("Übersicht VOL_VOB").Range("A2:A1002").Find(cbxVOL_Nummern)
If Not gefunden Is Nothing Then
txtEinkaufswagennummer = gefunden.Offset(0, 1).Value
txtBestellnummer = gefunden.Offset(0, 4).Value
txtBestätigungsnummer = gefunden.Offset(0, 5).Value
txtLieferung_am = gefunden.Offset(0, 9).Value
txtRechnung_vom = gefunden.Offset(0, 10).Value
txtVorgangsnummer = gefunden.Offset(0, 11).Value
End If
End Sub



Private Sub userform_initialize()

Worksheets("Übersicht VOL_VOB").Activate

frmVOL_Liste_ergaenzen.cbxVOL_Nummern.RowSource = "A2:A1002"

End Sub

Ich habe einmal ein Foto vom Formular hochgeladen:
Userbild

Ich hoffe Ihr könnt mir bei meinem Problem helfen.
Vielen Dank schon einmal!
Michel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim gefunden As Range If cbxVOL_Nummern.ListIndex > -1 Then Set gefunden = Worksheets("Übersicht VOL_VOB").Range("A2:A1002") _ .Find(cbxVOL_Nummern, LookIn:=xlValues, lookat:=xlWhole) If Not gefunden Is Nothing Then txtEinkaufswagennummer = gefunden.Offset(0, 1).Value txtBestellnummer = gefunden.Offset(0, 4).Value txtBestätigungsnummer = gefunden.Offset(0, 5).Value txtLieferung_am = gefunden.Offset(0, 9).Value txtRechnung_vom = gefunden.Offset(0, 10).Value txtVorgangsnummer = gefunden.Offset(0, 11).Value End If Else MsgBox "Fehler: Kein Eintrag ausgewählt." End If Set gefunden = Nothing

Private Sub cmdÜbernehmen_Click() Dim gefunden As Range If cbxVOL_Nummern.ListIndex > -1 Then Set gefunden = Worksheets("Übersicht VOL_VOB").Range("A2:A1002") _ .Find(cbxVOL_Nummern, LookIn:=xlValues, lookat:=xlWhole) If Not gefunden Is Nothing Then txtEinkaufswagennummer = gefunden.Offset(0, 1).Value txtBestellnummer = gefunden.Offset(0, 4).Value txtBestätigungsnummer = gefunden.Offset(0, 5).Value txtLieferung_am = gefunden.Offset(0, 9).Value txtRechnung_vom = gefunden.Offset(0, 10).Value txtVorgangsnummer = gefunden.Offset(0, 11).Value End If Else MsgBox "Fehler: Kein Eintrag ausgewählt." End If Set gefunden = Nothing End Sub

gefunden.Offset(0, 1) = txtEinkaufswagennummer gefunden.Offset(0, 4) = txtBestellummer gefunden.Offset(0, 5) = txtBestätigungsnummer gefunden.Offset(0, 9) = CDate(txtLieferung_am) gefunden.Offset(0, 10) = CDate(txtRechnung_vom) gefunden.Offset(0, 11) = txtVorgangsnummer

Hallo Werner,
anscheinend bin ich zu blöd.
Leider klappt es, trotz der Veränderungen, immer noch nicht.
Vielleicht ist ja mein ganzer Ansatz falsch, weshalb ich kurz beschreibe was ich versuche zu realisieren:
Durch die Combobox wähle ich einen Datensatz aus dem Blatt "Übersicht VOL_VOB" aus. Danach gebe ich die noch fehlenden Daten in die Textboxen ein und dieser inhalt soll in die Splate des ausgwählten Datensatzes gespeichert werden. Gerne auch, dass man schon sehen kann, ob die jeweiligen Zellen schon gefüllt sind.
Einkaufswagennummer steht in Zeile C
Bestellnummer in Zeile D
Bestätigungsnummer in Zeile E
etc.
Ich habe auch schon versucht anhand von Vorlagen es auf anderen Wegen zu realisieren, jedoch hat das überhaupt nicht geklappt.
Liebe Grüße aus dem Norden
Michel

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formular ändert Datensatz

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread