Bestimmte Einträge Listbox per Button ausw.

Forumthread: Bestimmte Einträge Listbox per Button ausw.
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Bestimmte Einträge Listbox per Button ausw.

Werner

Hallo zusammen!
Ich habe eine Listbox mit ca 100 Einträgen die man einzeln per Häkchen auswählen kann.
Im Zellbereich G3 bis G13 stehen untereinander verschiedene Begiffe.
Ich möchte das über eine Schaltfläche die Listbox nach diesen Begriffen durchsucht wird und die Einträge dann ausgewählt werden.
Ist so was machbar? Wenn ja wie?
Gruß und Danke!
Werner

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Bestimmte Einträge Listbox per Button ausw.

fcs
AW: Bestimmte Einträge Listbox per Button ausw.

Werner

AW: Bestimmte Einträge Listbox per Button ausw.

14.09.2012 18:49:49

fcs

Hallo Werner,
entsprechendes Makro sieht wie folgt aus.
Gruß
Franz

Private Sub CommandButton2_Click()
'markieren der Einträge aus G3:G13 in Listbox
Dim Zelle As Range, intI
With Me.ListBox1  'Me steht hier für das Userform oder das Tabellenblatt _
in dem die Listbox sich befindet
For intI = 0 To .ListCount - 1
.Selected(intI) = False
Next
For Each Zelle In Worksheets("Tabelle2").Range("G3:G13") 'Tabellenname anpassen!!!
For intI = 0 To .ListCount - 1
If .List(intI, 0) = Zelle.Value Then
.Selected(intI) = True
End If
Next
Next Zelle
End With
End Sub