Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Mehrere selektierte Einträge aus einer Listbox entfernen

Mitglied: misterdemeanor

misterdemeanor (Level 1) - Jetzt verbinden

22.03.2006 um 15:27 Uhr, 17514 Aufrufe

Applies To : VBA Listbox (RowsourceType=Valuelist)
Office XP

Eben gerade wollte ich mehrere selektierte Einträge aus einer Listbox in eine andere Listbox übertragen, und die selektierten Einträge aus der "source"-Listbox entfernen.
Mittels der Listbox.RemoveItem-Function sollte das ja auch kein Problem sein. Sollte man meinen...

Jaja, aber wer VBA kennt, der mag da schon etwas skeptisch sein, zurecht

Tatsächlich ist es so das die Listbox.ItemsSelected.Count-Property nach erstmaligen Aufruf der Listbox.RemoveItem-Function auf 0 gesetzt wird.(!!) Nachdem ich nach kurzem googlen zwar auf dieses "Phänomen" gestoßen bin, allerdings keine Lösungsansätze fand, hab ich dieses kleine Problemchen halt selbst gelöst.
Die kleine Sub entfernt die Selektierten-Einträge aus der der Sub übergebenden Listbox:

01.
 Public Sub removeSelectedItemsFromListbox(ByVal c As Access.ListBox) 
02.
On Error GoTo errHandler 
03.
  Dim i As Integer 
04.
  Dim chosen() As Long 
05.
  Dim l As Long 
06.
  l = 0 
07.
    ReDim chosen(0 To c.ItemsSelected.Count - 1) 
08.
    For i = 0 To c.ListCount - 1 
09.
      If c.Selected(i) Then 
10.
        chosen(l) = c.Column(c.BoundColumn - 1, i) 
11.
        l = l + 1 
12.
      End If 
13.
    Next i 
14.
     
15.
    For i = 0 To UBound(chosen) 
16.
      For l = 0 To c.ListCount - 1 
17.
        If c.ItemData(l) = chosen(i) Then 
18.
          c.RemoveItem l 
19.
        End If 
20.
      Next l 
21.
    Next i 
22.
errHandler: 
23.
  Select Case Err.Number 
24.
    Case 0 
25.
    Case 9  'Array-Index Out Of Bounce 
26.
      Exit Sub 
27.
    Case 6014 'Listbox.RowSourceType is not Valuelist 
28.
      Exit Sub 
29.
    Case Else 
30.
      MsgBox Err.Number & vbNewLine & Err.Description, vbCritical, "removeSelectedItemsFromListbox" 
31.
      Exit Sub 
32.
  End Select 
33.
End Sub 
34.
 
Ähnliche Inhalte
Windows 10

Windows 10: Alle Einträge aus dem Schnellzugriff (Quick access) im Explorer mit Powershell entfernen

Tipp von colinardoWindows 103 Kommentare

Wer es gebrauchen kann, ein Powershell-Einzeiler zum Entfernen aller Einträge aus dem Schnellzugriff (quick access) im Windows-Explorer. Und schon ...

Windows Update

Registry Eintrag für Meltdown und Spectre Updates nicht mehr nötig

Information von sabinesWindows Update1 Kommentar

Im KB Artikel ist beschrieben, dass der Registry Eintrag nicht mehr nötig ist, um die Updates zu erhalten/installieren. Fehlte ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von DeepsysMicrosoft Office5 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Windows 10

Windows 10 - OneNote APP entfernen

Tipp von 114757Windows 1012 Kommentare

Ihr habt bereits MS Office mit dem großen Bruder OneNote nachinstalliert und braucht jetzt die vorinstallierte OneNote Modern APP ...

Neue Wissensbeiträge
Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 8 StundenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 14 StundenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Microsoft Office

MS Office 2019 ohne OneNote - OneNote App speichert nur in Cloud

Information von Deepsys vor 1 TagMicrosoft Office4 Kommentare

Microsoft zeigt deutlich wohin alles bei Ihnen geht, OneNote 2019 wird es nicht mehr geben, und die Windows 10 ...

Humor (lol)

Warum man sein Gast-WLAN nicht beliebig nennen sollte

Erfahrungsbericht von Henere vor 2 TagenHumor (lol)5 Kommentare

Servus, mal was aus dem Alltag. Zu Hause. Eigentlich wollte ich nur einen weiteren WLAN-AP ins Netz bringen, damit ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
Server SSD: NVMe PCIe 3.0 RAID?
Frage von bouneeFestplatten, SSD, Raid15 Kommentare

Hallo liebe Admins, mir stellt sich gerade die Frage, ob ein neuer Server mit SSD NVMe PCIe 3.0 Sinn ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Windows 10
Windows 10 Startmenü-Einstellungen Systemweit festlegen
Frage von flotautWindows 1013 Kommentare

Guten Morgen liebe Admins, wir möchten bei uns am Lehrstuhl demnächst auf Windows 10 umsteigen. Wir installieren unsere PC's ...

LAN, WAN, Wireless
OpenVPN Client Fehlermeldungen
Frage von chris84LAN, WAN, Wireless12 Kommentare

Hallo Zusammen, wir nutzen seit kurzem einen neuen Router und den OpenVPN Client. Die VPN Verbindung klappt; allerdings kommen ...