Markierung in ListBox

Forumthread: Markierung in ListBox
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Markierung in ListBox

06.11.2022 14:54:32

Ron

Hallo,
wie bekomme ich es hin, dass wenn in der Listbox z.B. "Hamburg", "Berlin", und "München"
auftauchen sie gleich markiert werden.
Die Schlagwörter (Hamburg, Berlin, usw.) möchte ich im Code vorgeben.
https://www.herber.de/bbs/user/156044.xlsm
Danke
Gruß

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Markierung in ListBox

06.11.2022 16:08:32

Alwin
AW: Markierung in ListBox

06.11.2022 17:20:57

Ron
AW: Markierung in ListBox

06.11.2022 20:07:26

snb
AW: Markierung in ListBox

06.11.2022 20:11:09

Ron
AW: Markierung in ListBox

06.11.2022 20:16:49

snb

AW: Markierung in ListBox

06.11.2022 16:08:32

Alwin

Hallo,
das sollte so ausreichend sein:


For i = 0 To lb1.ListCount - 1
If .List(i, 0) = "Hamburg" Or .List(i, 0) = "Berlin" Or .List(i, 0) = "München" Then
lb1.Selected(i) = True
End If
Next

Gruß Uwe

AW: Markierung in ListBox

06.11.2022 17:20:57

Ron

Hallo Uwe,
doch so einfach...
Vielen Dank
Gruß

AW: Markierung in ListBox

06.11.2022 20:07:26

snb

Eigenschaften einer Control sollten im Design Mode eingetragen werden.
Verzichte auf 'additem).
Dieser Code reicht:


Private Sub UserForm_Initialize()
With [Quelle]
.AutoFilter 2, ">0"
.Copy Tabelle1.Cells(1, 10)
.AutoFilter
End With
With Tabelle1.Cells(1, 10).CurrentRegion
lb1.List = .Value
.Clear
End With
End Sub

AW: Markierung in ListBox

06.11.2022 20:11:09

Ron

Hallo,
vielen Dank
Gruß

AW: Markierung in ListBox

06.11.2022 20:16:49

snb

Noch etwas dazu:


Private Sub CommandButton1_Click()
Tabelle1.Range("A3:B12").ClearContents
For j = 0 To lb1.ListCount - 1
If lb1.Selected(j) Then c00 = c00 & j + 1 & " "
Next
st = Split(Trim(c00))
Tabelle1.Cells(3, 1).Resize(UBound(st) + 1, 2) = Application.Index(lb1.List, Application.Transpose(st), Array(1, 2))
Unload Me
End Sub