Datenbankeintrag per UserForm ändern

Hallo,
ich möchte mit Hilfe einer UserForm Einträge aus einer Datenbank verändern, bzw. löschen. Hierzu soll der Nutzer zuerst eine fest definierte Referenz in Text_Ref eingeben, wonach die anderen Felder der UserForm (Comboxen, Listen, usw.) automatisch mit den Werte aus des bestimmten Datensatzes ausgefüllt werden. Anschließend können dann Änderungen vorgenommen werden. Ereignisbasiert hätte ich mittext_Ref_Enter das Ausfüllen der Werte veranlassen wollen. Gibt es hierzu eine schlanke Lösung, um nach der Eingabe der Text_Ref, das Tabellenblatt nach dem Eintrag zu durchsuchen und dann in die Felder mit denn entsprechenden Auswahlmöglichkeiten anzuzeigen und später zu speichern?
Private Sub Text_Ref_Enter()
Dim lastE As Integer, lastRef As String
Dim wsE As Worksheet
Dim i As Integer
Set wsE = ThisWorkbook.Worksheets("Einsätze")
wsE.Activate
lastE = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
For i = 3 To lastE
If Me.Text_Ref.Value = wsE.Cells(i, 2).Value Then
Me.List_Name.Value = wsE.Cells(i, 3).Value
Me.List_Vorname.Value = wsE.Cells(i, 4).Value
Me.List_Projekt.Value = wsE.Cells(i, 7).Value
Me.List_Art.Value = wsE.Cells(i, 6).Value
End If
Next

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Text_Ref_Enter() Dim lngZeile As Long With ThisWorkbook.Worksheets("Einsätze") If WorksheetFunction.CountIf(.Columns(2), ext_Ref) = 0 Then MsgBox "ID exisitert nicht" Exit Sub Else lngZeile = Application.Match(ext_Ref, .Columns(2), 0) Me.List_Name.Value = wsE.Cells(lngZeile, 3).Value Me.List_Vorname.Value = wsE.Cells(lngZeile, 4).Value Me.List_Projekt.Value = wsE.Cells(lngZeile, 7).Value Me.List_Art.Value = wsE.Cells(lngZeile, 6).Value End If End With End Sub

Sub Text_Ref_Enter() Dim lngZeile As Long, wsE As Worksheet With ThisWorkbook.Worksheets("Einsätze") If WorksheetFunction.CountIf(.Columns(2), Text_Ref.Value) = 0 Then MsgBox "Referenz exisitert nicht" Exit Sub Else lngZeile = Application.Match(Text_Ref.Value, .Columns(2), 0) Me.List_Name.Value = wsE.Cells(lngZeile, 3).Value Me.List_Vorname.Value = wsE.Cells(lngZeile, 4).Value Me.List_Projekt.Value = wsE.Cells(lngZeile, 7).Value Me.List_Art.Value = wsE.Cells(lngZeile, 6).Value End If End With End Sub

Hi
Die vertraulichen Daten kannst du löschen, aber es wäre halt schon wichtig, mal ein Beispiel zu sehen, womit man den Fehler reproduzieren kann.
Der Wert 2020_01_023 wäre Datentyp String/Text.
Der Wert sollte eigentlich 202010023 (=Zahl) sein und die Formatierung macht daraus die Ansicht 2020_01_023
Wenn dem so wäre, müsste man den Textbox-Inhalt zuerst in eine Zahl umwandeln d.h. Underline/Strich entfernen und als Zahl dimensionieren.
CLng(Replace(Textbox, "_", ""))
Allerdings widerspricht dies der Übergabe:
.Cells(last, 2).Value = Me.Text_Ref.Value
Je nach Textbox Inhalt wird hier Text übertragen (somit wäre die anschliessende Formatierung sinnlos) oder wenn es ganz dumm läuft, interpretiert Excel den Wert sogar als Datum 23.1.2020, wobei ich annehme dass die Zahl 23 eher eine Laufnummer darstellt.
Komisch ist auch, dass der Typenfehler nicht schon bei CountIf (Zählenwenn) auftritt, sondern erst bei Match (Vergleich).
cu
Chris

Beliebteste Forumthreads (12 Monate)

Datenbankeintrag per UserForm ändern

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenbankeintrag per UserForm ändern

8 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)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread