Thema Datum  Von Nutzer Rating
Antwort
Rot Listboxen
 03.05.2021 09:11:54 MJ
Solved
03.05.2021 12:17:53 Gast70669
*****
NotSolved

Ansicht des Beitrags:
Von:
MJ		 Datum:
03.05.2021 09:11:54		 Views:
344		 Rating:
     
Antwort:
 Nein
Thema:
Listboxen

Hallo gemeinsam,

Ich arbeite grad an etwas und komme leider nicht weiter. Ich hab eine Userform mit 2 LIstboxen. In der ersten Listbox, hab Ich eine Auswahl. Wenn Ich eine bzw. mehrere Einträge ausgewählt habe wird dies blau makiert. Durch einen Button soll  die Auswahl in Listbox2 angezeigt werden. Bis hier funktioniert alles gut. Jetzt sagen wir mal das ich in der ersten Listbox eine Auswahl versehentlich mit ausgewählt habe. Wenn ich auf die nicht gewollte Auswahl drücke geht die blaue Makierung weg(per Mausklick). Durch ein Aktualisierungsbutton soll genau der Eintrag dann aber auch in Listbox2 gelöscht werden. Kurz gesagt nicht blau makiertes soll gelöscht werden in Listbox2  Leider funktioniert der Code nicht ganz .Kann mir jemand helfen..

 

Private Sub CommandButton10_Click()

Dim i As Integer     

X = ListBox1.ListCount - 1

Y = ListBox2.ListCount - 1

    If Y >= X Then  

       For i = X To 0 Step -1

            If Not ListBox1.Selected(i) Then

                UserForm2.ListBox2.RemoveItem i

            End If

        Next i

    Else

        For i = Y To 0 Step -1

            If Not ListBox1.Selected(i) Then

                UserForm2.ListBox2.RemoveItem i

            End If

        Next i

    End If

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Listboxen
 03.05.2021 09:11:54 MJ
Solved
03.05.2021 12:17:53 Gast70669
*****
NotSolved