Ich habe das Problem Werte aus einer Tabelle an eine Userform zu übergeben.
Es muss mittels Inputbox eine Datensatznummer angegeben werden.
Dann soll in dem Tabellenblatt in dem die relevanten Daten hinterlegt sind in Zeile A nach der passenden Nummer gesucht werden.
Das funktioniert auch.
Nun sollen die Werte, die daneben in den Spalten B,C,D u.s.w. stehen (hier stehen Daten wie Name, Vorname, Geburtsdatum.....) in meine Text und Comboboxen innerghalb der Userform "Eingabe" übergeben werden.
Das funktioniert dann leider nicht mehr.
Excel ist so frei und wählt einfach ein ganz anderes Tabellenblatt aus und nimmt Daten von dort. Welchen Fehler habe ich hier gemacht. Hat jemand eine Idee?
Folgendes habe ich gemacht:
Private Sub combuBearbeiten_Click()
Dim Eingabe As Variant
Dim d as integer
Eingabe = InputBox("Geben Sie die LfdNr an ..." + Chr(13) _
, " Datensatz einlesen ...")
If Eingabe = "" Then MsgBox "Sie haben keinen LfdNr angegeben ...!" + Chr(13) _
+ "Datensatz kann nicht eingelesen werden!", _
0 + 32 + 4096, " Fehlermeldung!"
If Eingabe = "" Then Exit Sub
Sheets("Master_Liste").Select
Columns("A:A").Select
Selection.Find(What:=Eingabe, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
d = Eingabe
Load frmEingabe
With frmEingabe
.txtLfdnr = d
.txtName = Cells(d, 2)
.txtVorname = Cells(d, 3)
.cmbGeschlecht = Cells(d, 4)
.txtGebdat = Cells(d, 5)
.txtGebort = Cells(d, 6)
.cmbNation = Cells(d, 7)
End With
frmStart.Hide
frmEingabe.Show