PDA

Vollständige Version anzeigen : combobox1.value in Liste suchen, dann 2 Spalten links


E.GO
11.04.2012, 20:42
Hallo,
wie geht das?

Den ausgesuchten Wert der Userform1.Combobox2 in Liste "Tabelle3!F:F suchen, dann in dieser Zeile 2 Spalten nach links gehen und den gefundenen Wert in Userform1.Combobox1 anzeigen.

Danke E.GO

hary
11.04.2012, 22:25
Hallo
warum nimmst Du fuer einen Wert eine Combobox?
Dim a As Variant
With Sheets("Tabelle3")
a = Application.Match(ComboBox2, .Columns(6), 0)
If IsNumeric(a) Then
ComboBox1 = .Cells(a, 4)
Else
ComboBox1 = ""
MsgBox "nicht vorhanden"
End If
End With
gruss hary

E.GO
13.04.2012, 21:19
Hallo hary,

Danke, ja so funktioniert's.
Allerdings ist mir aufgefallen, dass ich in F:F mehrere gleiche Einträge habe und mit deinem Code immer den obersten Eintrag in D:D bekomme. Ich brauche aber den untersten Eintrag, der zum Suchbegriff in F:F passt.
Meinst du das kannst du noch ergänzen?

Danke und Grüße
E.GO

hary
14.04.2012, 08:29
Moin E.Go
Dim letzte As Long
Dim i As Long
letzte = Cells(Rows.Count, 6).End(xlUp).Row
With Sheets("Tabelle3")
For i = letzte To 1 Step -1
If Cells(i, 6) = ComboBox2 Then
ComboBox1 = .Cells(i, 4)
Exit For
End If
Next
End With
gruss hary

E.GO
14.04.2012, 09:04
Hallo hary,

Danke, hat alles funktioniert.
Gruß E.GO

hary
14.04.2012, 10:46
Hallo
hab einen Punkt vergessen.
[CODE]Dim letzte As Long
Dim i As Long
With Sheets("Tabelle3")
letzte = .Cells(.Rows.Count, 6).End(xlUp).Row
For i = letzte To 1 Step -1
If .Cells(i, 6) = ComboBox2 Then
ComboBox1 = .Cells(i, 4)
Exit For
End If
Next
End WithCODE]
gruss hary