Im ersten Teil dieser Beitragsreihe haben wir ein ListView-Steuerelement mit den Daten aus einer Mitarbeitertabelle gefüllt, Icons hinzugefügt und eine Sortierfunktion implementiert. Im vorliegenden Beitrag bauen wir dieses Beispiel weiter aus: Wir zeigen, wie man dem ListView-Steuerelement neue Einträge hinzufügen und bestehende Einträge bearbeiten oder löschen kann. Außerdem erklären wir, wie man die Elemente auch nach numerischen Daten oder nach Datumsfeldern korrekt sortiert. Schließlich fügen wir noch ein Kontextmenü hinzu, mit dem man den Status der Mitarbeiter anpassen kann.<\/b><\/p>\n
Rückblick auf Teil 1<\/h2>\n
Im ersten Teil dieser Beitragsreihe (www.access-im-unternehmen.de\/1574) haben wir zunächst eine Abfrage namens qryMitarbeiter<\/b> erstellt, die alle benötigten Lookup-Tabellen – tblAnreden<\/b>, tblAbteilungen<\/b> und tblStatus<\/b> – einbindet. Anschließend haben wir das ListView<\/b>-Steuerelement in der Ereignisprozedur Form_Load<\/b> eingerichtet und mit Spaltenüberschriften versehen.<\/p>\n
Die Prozedur ListViewFuellen<\/b> liest die Datensätze per Recordset aus und fügt sie als ListItem<\/b>– und ListSubItem<\/b>-Objekte ein. Außerdem haben wir per Windows-API-Aufruf die Spaltenbreiten automatisch an Inhalt und Überschrift angepasst, für jeden Mitarbeiter ein statusabhängiges Icon aus der Tabelle MSysResources<\/b> eingeblendet und eine einfache Sortierfunktion per Klick auf den Spaltenkopf ergänzt. Bild 1 zeigt den Stand am Ende von Teil 1.<\/p>\n
![\"Aktueller](\"..\/fileadmin\/_temp_\/2026_03\/pic_1575_001.png\")
<\/p>\n
Bild 1: Aktueller Stand des ListView-Steuerelements<\/span><\/b><\/p>\n Im ersten Teil haben wir bereits eine Sortierfunktion eingebaut, die über einen Klick auf den jeweiligen Spaltenkopf ausgelöst wird. Dabei zeigte sich jedoch ein Problem: Zahlen und Datumsangaben werden lexikografisch sortiert, also wie Zeichenketten.<\/p>\n Das führt dazu, dass beispielsweise der Wert 10 vor dem Wert 2 erscheint und Datumsangaben nicht chronologisch, sondern nach ihrem Textwert geordnet werden.<\/p>\n Um das zu beheben, ersetzen wir die eingebaute Sortierfunktion durch eigene Prozeduren, die Zahlen- und Datumswerte korrekt vergleichen.<\/p>\n Als Basis dienen die API-Konstanten und die SendMessage<\/b>-Deklaration aus Listing 1, die wir im allgemeinen Modul mdlListViewTabellen2<\/b> ablegen.<\/p>\n Listing 1: Benötigte API-Deklarationen<\/span><\/b><\/p>\n Für die eigentliche Sortierung erweitern wir die Ereignisprozedur ctlListView_ColumnClick<\/b> aus Teil 1.<\/p>\n Nach dem Setzen von SortKey<\/b> und SortOrder<\/b> rufen wir eine eigene Prozedur ListViewSortieren<\/b> auf, die den Vergleichstyp je Spalte festlegt (siehe Listing 2).<\/p>\n Listing 2: Angepasste ColumnClick-Prozedur<\/span><\/b><\/p>\n Die Prozedur ListViewSortieren<\/b> im Modul mdlListViewTabellen2<\/b> verzweigt per Select Case<\/b> je nach Spaltenindex in die passende Sortierprozedur: Index 1 (ID) landet in ListViewSortNumerisch<\/b>, Index 7 (Geburtstag) in ListViewSortDatum<\/b>, alle anderen Spalten nutzen weiterhin die eingebaute Textsortierung über objLV.Sorted = True<\/b> (siehe Listing 3).<\/p>\n Listing 3: Verzweigung nach Spaltentyp<\/span><\/b><\/p>\n Beide Sortierprozeduren arbeiten nach dem gleichen Prinzip: Sie vergleichen im Bubblesort-Durchlauf die Werte zweier benachbarter Zeilen direkt und tauschen bei Bedarf sofort deren Inhalte. Da die Index<\/b>-Eigenschaft eines ListItem<\/b>-Objekts schreibgeschützt ist, können wir die Reihenfolge der Einträge nicht durch Umsetzen von Indizes verändern. Stattdessen lassen wir die ListItem<\/b>-Objekte an ihrer Position und schreiben nur die angezeigten Inhalte um – das Ergebnis ist dasselbe.<\/p>\n Den Austausch übernimmt die private Hilfsprozedur ListViewZeilenTauschen<\/b>. Sie erhält das ListView<\/b>-Objekt sowie die Indizes der beiden zu tauschenden Zeilen. Zunächst speichert sie den Text<\/b> der ersten Spalte von Zeile A in einer Hilfsvariablen, kopiert den Wert aus Zeile B nach A und schreibt den gespeicherten Wert nach B – der klassische Drei-Wege-Tausch. Anschließend wiederholt sie diesen Vorgang für jedes ListSubItem<\/b> der Zeile. Da im ListView<\/b>-Steuerelement auch das Icon je Zeile gespeichert ist, tauscht die Prozedur zuletzt noch den SmallIcon<\/b>-Index, damit das Icon beim Umsortieren mitwandert und weiterhin zum jeweiligen Datensatz passt (siehe Listing 4).<\/p>\n Listing 4: Hilfsprozedur zum Tauschen zweier ListView-Zeilen<\/span><\/b><\/p>\n Die Prozedur ListViewSortNumerisch<\/b> implementiert den Bubblesort mit zwei verschachtelten Schleifen. Die äußere Schleife über i<\/b> läuft von 1 bis lngAnzahl – 1<\/b> und steuert die Durchläufe. Die innere Schleife über j<\/b> läuft von 1 bis lngAnzahl – i<\/b> – nach jedem Durchlauf steht der größte noch unsortierte Wert am Ende, weshalb der Vergleichsbereich mit jedem Durchlauf um eine Position kürzer wird. Im Schleifenrumpf lesen wir die Werte der beiden betrachteten Zeilen aus: Bei Spaltenindex 0 steht der Wert in ListItems(j).Text<\/b>, bei allen anderen Spalten in ListItems(j).ListSubItems(intSpalte).Text<\/b>. Beide Werte wandeln wir per CLng<\/b> in ganzzahlige Werte um und vergleichen sie.<\/p>\n Ist die Reihenfolge falsch – bei aufsteigender Sortierung also lngA > lngB<\/b>, bei absteigender lngA < lngB<\/b> – rufen wir ListViewZeilenTauschen<\/b> auf (siehe Listing 5).<\/p>\n Listing 5: Numerische Sortierung<\/span><\/b><\/p>\n Die Prozedur ListViewSortDatum<\/b> ist identisch aufgebaut – der einzige Unterschied ist die Typumwandlung per CDbl(CDate(…))<\/b>, da Access Datumsangaben intern als Gleitkommazahl speichert (siehe Klassenmodul Form_frmMitarbeiterImListView).<\/p>\n Nach diesen Anpassungen liefert ein Klick auf den Spaltenkopf ID<\/b> eine korrekte numerische Sortierung, und ein Klick auf Geburtstag<\/b> eine chronologische.<\/p>\n In Bild 2 sehen wir, dass die Sortierung nach dem Geburtstag nun funktioniert.<\/p>\n Bild 2: Korrekte Sortierung nach dem Feld Geburtstag<\/span><\/b><\/p>\n Damit der Benutzer einen Mitarbeiterdatensatz direkt aus dem ListView<\/b>-Steuerelement heraus bearbeiten kann, öffnen wir per Doppelklick auf einen Eintrag ein Bearbeitungsformular. Das Formular frmMitarbeiterDetail<\/b> ist an die Tabelle tblMitarbeiter<\/b> gebunden und enthält alle Felder des Datensatzes (siehe Bild 3).<\/p>\n Bild 3: Das Formular zum Bearbeiten der Mitarbeiterdetails<\/span><\/b><\/p>\n Die Eigenschaft Automatisch zentrieren <\/b>stellen wir aus Ja<\/b>, Bildlaufleisten<\/b>, Navigationsschaltflächen <\/b>und Datensatzmarkierer <\/b>auf Nein <\/b>und Zyklus <\/b>auf Aktueller Datensatz <\/b>ein.<\/p>\n Wir öffnen es mit DoCmd.OpenForm<\/b> und übergeben die MitarbeiterID<\/b> des angeklickten Eintrags als Filterargument.<\/p>\n Für das Doppelklick-Ereignis des ListView<\/b>-Steuerelements hinterlegen wir die Ereignisprozedur aus Listing 6.<\/p>\n Listing 6: Bearbeitungsformular per Doppelklick öffnen<\/span><\/b><\/p>\n Sie ermittelt den aktuellen Eintrag und referenziert diesen mit objListItem<\/b>. Mit ListSubItems(1).Text <\/b>holt sie den Wert des Feldes MitarbeiterID <\/b>und speichert diesen in der Variablen lngMitarbeiterID<\/b>. Außerdem speichern wir den Key des markierten Eintrag in der Variablen strKey <\/b>zwischen.<\/p>\n Diesen übergeben wir beim Öffnen des Formulars mit DoCmd.OpenForm <\/b>über den Parameter WhereCondition<\/b>. Außerdem legen wir für den Parameter WindowMode <\/b>den Wert acDialog <\/b>fest, was dafür sorgt, dass das Formular als modaler Dialog geöffnet wird und der aufrufende Code erst nach dem Schließen des Formulars weiterläuft.<\/p>\n Für die Schaltflächen cmdOK <\/b>und cmdAbbrechen <\/b>des Formulars frmMitarbeiterDetail <\/b>fügen wir die folgende Ereignisprozedur hinzu:<\/p>\n Die Schaltfläche OK<\/b> macht das Formular unsichtbar und die aufrufende Prozedur läuft weiter. Sie prüft mit der Hilfsfunktion IstFormularGeoeffnet<\/b>, ob das Formular noch geöffnet ist. Falls ja, aktualisiert sie die Anzeige des ListView<\/b>-Steuerelements mit der Prozedur ListViewFuellen<\/b>. Außerdem selektiert sie den bearbeiteten Eintrag auf Basis des in strKey <\/b>gespeicherten Key<\/b>-Wertes erneut. Dann schließt sie das aktuell unsichtbare Formular frmMitarbeiter <\/b>Details endgültig.<\/p>\n Zum Hinzufügen eines neuen Mitarbeiters fügen wir dem Formular eine Schaltfläche cmdNeuerMitarbeiter<\/b> hinzu. Die Ereignisprozedur cmdNeuerMitarbeiter_Click<\/b> öffnet das Formular frmMitarbeiterDetail<\/b> im Modus acFormAdd<\/b>, sodass dort direkt ein neuer Datensatz angelegt werden kann (siehe Listing 7).<\/p>\n Listing 7: Neuen Mitarbeiter anlegen<\/span><\/b><\/p>\n Hat der Benutzer einen solchen angelegt und das Formular mit der Schaltfläche OK <\/b>unsichtbar gemacht, liest die Prozedur die ID des neuen Mitarbeiter aus uns speichert sie in lngMitarbeiterID<\/b>.<\/p>\n Dann stellt sie den Index des neuen Eintrags zusammen, schließt das Formular, referenziert das ListView<\/b>-Steuerelement und aktualisiert die enthaltenen Einträge. Dann selektiert sie den neu hinzugefügten Mitarbeiter.<\/p>\n Um einen Eintrag zu löschen, fügen wir dem Formular eine Schaltfläche cmdLoeschen<\/b> hinzu. Die Ereignisprozedur prüft zunächst, ob ein Element im ListView<\/b>-Steuerelement markiert ist. Falls ja, fragt sie den Benutzer per MsgBox<\/b> ab, ob er den Eintrag wirklich löschen möchte. Bei Bestätigung löscht sie den Datensatz per SQL aus der Tabelle tblMitarbeiter<\/b> und aktualisiert anschließend das ListView<\/b>-Steuerelement (siehe Listing 8).<\/p>\n Listing 8: Markierten Eintrag löschen<\/span><\/b><\/p>\n Die Prozedur prüft, ob überhaupt ein Eintrag markiert ist. In diesem Fall liest sie seine ID aus der ersten Spalte in die Variable lngID <\/b>ein. Wenn der Benutzer die folgende Meldung mit Ja quittiert, wird der Eintrag aus der Tabelle tblMitarbeiter gelöscht und das ListView <\/b>Steuerelement erneut gefüllt.<\/p>\n Als letztes Feature fügen wir ein Kontextmenü hinzu, mit dem der Benutzer den Status eines Mitarbeiters direkt im ListView<\/b>-Steuerelement anpassen kann, ohne das Detailformular zu öffnen. Das Kontextmenü soll beim Rechtsklick auf einen Eintrag erscheinen und die verfügbaren Statuswerte aus der Tabelle tblStatus<\/b> als Menüeinträge anbieten.<\/p>\n Wir nutzen dazu die CommandBars<\/b>-Auflistung von Office, wozu wir noch einen Verweis auf die Bibliothek Microsoft Office 16.0 Object Library hinzufügen müssen.<\/p>\n Im Ereignis Form_Load<\/b> erstellen wir das Kontextmenü einmalig und legen die Einträge dynamisch auf Basis der Tabelle tblStatus<\/b> an (siehe Listing 9).<\/p>\nSortierung nach Zahlen- und Datumsfeldern<\/h2>\n
Private <\/span>Const LVM_FIRST As Long<\/span> = &H1000\r\nPrivate <\/span>Const LVM_SORTITEMSEX As Long<\/span> = LVM_FIRST + 81\r\n#If VBA7 Then\r\n Private <\/span>Declare PtrSafe Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal hWnd As Long<\/span>Ptr, _\r\n ByVal wMsg As Long<\/span>, ByVal wParam As Long<\/span>Ptr, ByVal lParam As Long<\/span>Ptr) As Long<\/span>Ptr\r\n#Else\r\n Private <\/span>Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal hWnd As Long<\/span>, ByVal wMsg As Long<\/span>, _\r\n ByVal wParam As Long<\/span>, ByVal lParam As Long<\/span>) As Long<\/span>\r\n#End If<\/pre>\nPrivate Sub <\/span>ctlListView_ColumnClick(ByVal ColumnHeader As Object<\/span>)\r\n Static <\/span>intAktuelleSortierspalte As Integer<\/span>\r\n Static <\/span>bolAufsteigend As Boolean<\/span>\r\n Dim <\/span>objListView As <\/span>MSComctlLib.ListView\r\n Set<\/span> objListView = Me.ctlListView.Object\r\n objListView.SortKey = ColumnHeader.Index - 1\r\n If <\/span>intAktuelleSortierspalte = ColumnHeader.Index - 1 Then<\/span>\r\n bolAufsteigend = Not<\/span> bolAufsteigend\r\n objListView.SortOrder = Abs(bolAufsteigend)\r\n Else<\/span>\r\n objListView.SortOrder = lvwAscending\r\n End If<\/span>\r\n intAktuelleSortierspalte = ColumnHeader.Index - 1\r\n Call<\/span> ListViewSortieren(objListView, ColumnHeader.Index - 1, bolAufsteigend)\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>ListViewSortieren(objLV As <\/span>MSComctlLib.ListView, intSpalte As Integer<\/span>, bolAufsteigend As Boolean<\/span>)\r\n Select Case intSpalte\r\n Case <\/span>1 'ID: numerisch\r\n Call<\/span> ListViewSortNumerisch(objLV, intSpalte, bolAufsteigend)\r\n Case <\/span>7 'Geburtstag: Datum\r\n Call<\/span> ListViewSortDatum(objLV, intSpalte, bolAufsteigend)\r\n Case Else<\/span> 'alle anderen: Text\r\n objLV.Sorted = True<\/span>\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nRoutine zum Vertauschen von ListView-Einträgen<\/h2>\n
Private Sub <\/span>ListViewZeilenTauschen(objLV As <\/span>MSComctlLib.ListView, lngA As Long<\/span>, lngB As Long<\/span>)\r\n Dim <\/span>strTemp As String<\/span>\r\n Dim <\/span>i As Long<\/span>\r\n strTemp = objLV.ListItems(lngA).Text\r\n objLV.ListItems(lngA).Text = objLV.ListItems(lngB).Text\r\n objLV.ListItems(lngB).Text = strTemp\r\n For i = 1 To objLV.ListItems(lngA).ListSubItems.Count\r\n strTemp = objLV.ListItems(lngA).ListSubItems(i).Text\r\n objLV.ListItems(lngA).ListSubItems(i).Text = objLV.ListItems(lngB).ListSubItems(i).Text\r\n objLV.ListItems(lngB).ListSubItems(i).Text = strTemp\r\n Next<\/span> i\r\n 'SmallIcon-Index ebenfalls tauschen\r\n Dim <\/span>lngIconA As Long<\/span>\r\n lngIconA = objLV.ListItems(lngA).SmallIcon\r\n objLV.ListItems(lngA).SmallIcon = objLV.ListItems(lngB).SmallIcon\r\n objLV.ListItems(lngB).SmallIcon = lngIconA\r\nEnd Sub<\/span><\/pre>\nSortieren mit Bubblesort<\/h2>\n
Public Sub <\/span>ListViewSortNumerisch(objLV As <\/span>MSComctlLib.ListView, intSpalte As Integer<\/span>, bolAufsteigend As Boolean<\/span>)\r\n Dim <\/span>i As Long<\/span>, j As Long<\/span>\r\n Dim <\/span>lngAnzahl As Long<\/span>\r\n lngAnzahl = objLV.ListItems.Count\r\n 'Bubblesort: Zeileninhalt direkt tauschen\r\n For i = 1 To lngAnzahl - 1\r\n For j = 1 To lngAnzahl - i\r\n Dim <\/span>lngA As Long<\/span>, lngB As Long<\/span>\r\n If <\/span>intSpalte = 0 Then<\/span>\r\n lngA = CLng(objLV.ListItems(j).Text)\r\n lngB = CLng(objLV.ListItems(j + 1).Text)\r\n Else<\/span>\r\n lngA = CLng(objLV.ListItems(j).ListSubItems(intSpalte).Text)\r\n lngB = CLng(objLV.ListItems(j + 1).ListSubItems(intSpalte).Text)\r\n End If<\/span>\r\n If <\/span>bolAufsteigend Then<\/span>\r\n If <\/span>lngA > lngB Then<\/span> Call<\/span> ListViewZeilenTauschen(objLV, j, j + 1)\r\n Else<\/span>\r\n If <\/span>lngA < lngB Then<\/span> Call<\/span> ListViewZeilenTauschen(objLV, j, j + 1)\r\n End If<\/span>\r\n Next<\/span> j\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n![\"Korrekte](\"..\/fileadmin\/_temp_\/2026_03\/pic_1575_002.png\")
<\/p>\nBearbeitungs-Dialog per Doppelklick öffnen<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2026_03\/pic_1575_003.png\")
<\/p>\nPrivate Sub <\/span>ctlListView_DblClick()\r\n Dim <\/span>objListView As <\/span>MSComctlLib.ListView\r\n Dim <\/span>objListItem As <\/span>MSComctlLib.ListItem\r\n Dim <\/span>lngMitarbeiterID As Long<\/span>\r\n Dim <\/span>strKey As String<\/span>\r\n \r\n Set<\/span> objListView = Me.ctlListView.Object\r\n If <\/span>Not<\/span> objListView.SelectedItem Is Nothing Then<\/span>\r\n Set<\/span> objListItem = objListView.SelectedItem\r\n strKey = objListItem.Key\r\n lngMitarbeiterID = objListItem.ListSubItems(1).Text\r\n DoCmd.OpenForm \"frmMitarbeiterDetail\", , , \"MitarbeiterID = \" & lngMitarbeiterID, acFormEdit, acDialog\r\n If <\/span>IstFormularGeoeffnet(\"frmMitarbeiterDetail\") = True<\/span> Then<\/span>\r\n Call<\/span> ListViewFuellen\r\n objListView.ListItems(strKey).Selected = True<\/span>\r\n DoCmd.Close acForm, \"frmMitarbeiterDetail\"\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdAbbrechen_Click()\r\n Me.Undo\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>cmdOK_Click()\r\n If <\/span>Me.Dirty = True<\/span> Then<\/span>\r\n Me.Dirty = False<\/span>\r\n End If<\/span>\r\n Me.Visible = False<\/span>\r\nEnd Sub<\/span><\/pre>\nNeue Datensätze hinzufügen<\/h2>\n
Private Sub <\/span>cmdNeuerMitarbeiter_Click()\r\n Dim <\/span>objListView As <\/span>MSComctlLib.ListView\r\n Dim <\/span>lngMitarbeiterID As Long<\/span>\r\n Dim <\/span>strKey As String<\/span>\r\n \r\n DoCmd.OpenForm \"frmMitarbeiterDetail\", , , , acFormAdd, acDialog\r\n If <\/span>IstFormularGeoeffnet(\"frmMitarbeiterDetail\") = True<\/span> Then<\/span>\r\n lngMitarbeiterID = Forms!frmMitarbeiterdetail!MitarbeiterID\r\n strKey = \"z\" & lngMitarbeiterID\r\n DoCmd.Close acForm, \"frmMitarbeiterDetail\"\r\n Set<\/span> objListView = Me.ctlListView.Object\r\n Call<\/span> ListViewFuellen\r\n objListView.ListItems(strKey).Selected = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nEinträge entfernen<\/h2>\n
Private Sub <\/span>cmdMitarbeiterLoeschen_Click()\r\n Dim <\/span>objListView As <\/span>MSComctlLib.ListView\r\n Dim <\/span>objListItem As <\/span>MSComctlLib.ListItem\r\n Dim <\/span>lngID As Long<\/span>\r\n Set<\/span> objListView = Me.ctlListView.Object\r\n If <\/span>Not<\/span> objListView.SelectedItem Is Nothing Then<\/span>\r\n Set<\/span> objListItem = objListView.SelectedItem\r\n lngID = CLng(objListItem.ListSubItems(1).Text)\r\n If <\/span>MsgBox<\/span>(\"Mitarbeiter wirklich löschen?\", vbYesNo + vbQuestion) = vbYes Then<\/span>\r\n CurrentDb.Execute \"DELETE FROM tblMitarbeiter WHERE MitarbeiterID = \" & lngID, dbFailOnError\r\n Call<\/span> ListViewFuellen\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nStatus per Kontextmenü ändern<\/h2>\n
Private Sub <\/span>KontextmenueErstellen()\r\n Dim <\/span>cbr As <\/span>Office.CommandBar\r\n Dim <\/span>cbrBtn As <\/span>Office.CommandBarButton\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n 'Vorhandenes Menü löschen\r\n On Error Resume Next<\/span>\r\n CommandBars(\"MitarbeiterStatus\").Delete\r\n On Error GoTo<\/span> 0\r\n Set<\/span> cbr = CommandBars.Add(\"MitarbeiterStatus\", msoBarPopup, , True<\/span>)\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT StatusID, Status FROM tblStatus\", dbOpenSnapshot)\r\n