SVerweis bei doppelten Werten
27.05.2015 14:55:32
Lisa
Ich stehe mal wieder auf dem Schlauch.
Hier mein Problem.
Ich habe eine UF in der ich eine Listbox und eine Textbox habe.
Die Listbox zeigt mir Daten aus dem Sheet2 und den Spalten A:B.
Die Textbox soll mit Auswahl einer Zeile in der Listbox, Daten aus dem Sheet2 und der Spalte C anzeigen. SVerweis.
Anbei der Code
Private Sub ListBox1_Change()
On Error Resume Next
Dim ZelleAE As Range
Set ZelleAE = Sheets("Tabelle2").Range("A1:J65536").Find(What:=Me.ListBox1.List(ListBox1. _
ListIndex, 0), LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
Me.TextBox1 = ZelleAE.Offset(0, 2).Value
End Sub
Sind sie doppelt gibt es falsche Werte.
Wie kann ich erreichen, dass wirklich die richtigen Werte gefunden werden
Habt ihr eine Idee für mich?
Evtl. ist mein Ansatz ja auch völlig falsch.
Zur evtl. bessern Erklärung die Mappe als Anhang anbei.
https://www.herber.de/bbs/user/97878.xls
Für Eure Hilfe und Ratschläge vielen Dank im voraus.
LG Lisa