VBA Userform/Sverweis
21.09.2018 19:20:01
Max
ich habe hier ein Problem und komme absolut nicht weiter.
Ich baue gerade einen Dienstplan. Über eine Userform sollen einträge nachher in Zukunft gelöscht werden können.
Der "User" soll nur die Personalnummer eintragen (via DropDown) und dan soll in einem 2 Textfeldern Vor und Nachname als erste Kontrolle angezeigt werden.
Ich habe versucht das über Sverweis zu lösen.
Private Sub ComboPNummer_Change()
Me.Label_Name = Application.WorksheetFunction.VLookup(Me.ComboPNummer.Value, PersonalDaten. _
Range("A7:D800"), 2, False)
Me.Label_Nachname = Application.WorksheetFunction.VLookup(Me.ComboPNummer.Value, PersonalDaten. _
Range("A7:D800"), 3, False)
End Sub
Erläuterung
Label_Name ist die erste LabelBox
Label_Nachname ist die zweite
ComboPNummer ist das ComboBox wo die P-Nummer ausgewählt wird
PersonalDaten ist die Tabelle
Habt ihr Tipps oder andere Lösungen?
Vielen Dank
Gruß