Listbox Eintrag auswählen in Abhängigkeit vom Wert

Forumthread: Listbox Eintrag auswählen in Abhängigkeit vom Wert
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Listbox Eintrag auswählen in Abhängigkeit vom Wert

16.12.2024 10:43:49

Georg

Liebe Mitglieder
der simple Code soll erweitert werden.
Und zwar, wenn in der 2. Spalte der Listbox ein bestimmter Wert steht, z. b. "XX", nur dann soll die Zeile ausgewählt werden - also selectec = true, sonst nicht.
Komm leider nicht dahinter, wie ich eine IF Bedingung da reinbringe:

For i = 0 To UFRollenRechteBPx.LBBpxExt.ListCount - 1

       

        UFRollenRechteBPx.LBBpxExt.Selected(i) = True

   

    Next i

Vielen Dank und Gruß Georg

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox Eintrag auswählen in Abhängigkeit vom Wert

16.12.2024 11:30:44

Yal
AW: Listbox Eintrag auswählen in Abhängigkeit vom Wert

16.12.2024 11:42:05

Beverly
AW: Listbox Eintrag auswählen in Abhängigkeit vom Wert

16.12.2024 14:16:49

GerdL
AW: Listbox Eintrag auswählen in Abhängigkeit vom Wert

17.12.2024 08:43:56

Kuwer

AW: Listbox Eintrag auswählen in Abhängigkeit vom Wert

16.12.2024 11:30:44

Yal

Hallo Georg,

es sollte ungefähr so aussehen (die Datei + Formular nachzubauen, um zu testen, ist mir zuviel Aufwand):

Sub ListboxSelection_festelegen()

Dim i As Long

    

    With UFRollenRechteBPx.LBBpxExt

        For i = 0 To .ListCount - 1

            If .List(i, 1) = "XX" Then .Selected(i) = True

        Next i

    End With

End Sub

Siehe https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/listbox-control-list-property-example

Achte immer auf einem sauberen Einrücken. Für die Lesbarkeit viel wichtiger als leere Zeilen.
Lange, wiederholenden Object-Namen kannst Du in einem With packen. Dann kommt nur noch was ab dem Punkt kommt.
Poste bitte von "Sub" bis "End Sub".

VG
Yal

AW: Listbox Eintrag auswählen in Abhängigkeit vom Wert

16.12.2024 11:42:05

Beverly

Hi Georg,

ungetestet nach diesem Prinzip:

If ListBox1.List(i, 1) = "XX" Then ListBox1.Selected(i) = True

Der Spaltenindex beginnt bei 0.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

AW: Listbox Eintrag auswählen in Abhängigkeit vom Wert

16.12.2024 14:16:49

GerdL

Hallo Georg,

noch ein Gedicht.

Dim i As Integer

Const strText As String = "XX"



With UFRollenRechteBPx.LBBpxExt

    .MultiSelect = fmMultiSelectMulti

    For i = 0 To .ListCount - 1

        .Selected(i) = .List(i, 1) = strText

    Next

End With

Gruß Gerd

AW: Listbox Eintrag auswählen in Abhängigkeit vom Wert

17.12.2024 08:43:56

Kuwer

Hallo,

und noch eins:

Sub ListboxSelection_festelegen()

  Dim i As Long

  With UFRollenRechteBPx.LBBpxExt

    For i = 0 To .ListCount - 1

      .Selected(i) = .List(i, 1) = "XX"

    Next i

  End With

End Sub

Gruß, Uwe

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!