2 gleiche ListBox Einträge markieren

Question

Hallo Zusammen,

im Archiv bin ich nicht fündig geworden, ich hoffe mir kann jemand
helfen:

Ich habe 2 Listboxen in denen mittels Additem einige Namen
eingelesen sind. Wenn sich aber der gleiche Name in ListBox1 und
ListBox2 befindet dann sollte diese Zeile farbig (oder einfache
Markierung) hervorgehoben werden.

??? Mir fehlt der Ansatz


VG Sina

Answer 1

Hallo Sina,

nachfolgend mal eine Lösungsvariante. Hier werden 2 ListBoxen miteinander verglichen und sobald eine Übereinstimmung gefunden wird, werden die beiden Einträge in der ListBox markiert und die Vergleichsprozedur beendet.
Kopiere das Makro in die UserForm und starte es z.B. über einen CommandButton
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Private Sub CommandButton1_Click()
Dim lngListBox1Eintrag As Long
Dim lngListBox2Eintrag As Long
Dim lngAnzahl As Long

Dim strSuchbegriff As String

Dim varArray As Variant

For lngListBox1Eintrag = 0 To ListBox1.ListCount - 1
strSuchbegriff = ListBox1.List(lngListBox1Eintrag, 0)
For lngListBox2Eintrag = 0 To ListBox2.ListCount - 1
If strSuchbegriff = ListBox2.List(lngListBox2Eintrag, 0) Then
ListBox1.ListIndex = lngListBox1Eintrag
ListBox2.ListIndex = lngListBox2Eintrag
GoTo Ende
End If
Next lngListBox2Eintrag
Next lngListBox1Eintrag
Ende:
End Sub
Zum besseren Verständnis habe ich Dir noch eine Beispieldatei hochgeladen, die Du Dir unter http://www.excelbeispiele.de/beispiele_supportnet/Beispiel_2_ListBoxen_vergleichen.xls downloaden kannst.

Bei Fragen melde Dich.

Answer 2

Hi,

ich nochmal. Ups, da hatte ich doch glatt den Gruß am Ende vergessen. Na dann eben jetzt. ;-)

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]