'Hallo! Kopiere einfach diesen Text in eine Userform mit einem ListView und einem
'Command-Button. Das Programm sollte Deine Frage beantworten. Sollte das noch nicht ausreichen, dann
'mail mir einfach nochmal.
'mailto: [email protected]
'Wofuer benoetigst Du den ListView eigendlich? Falls Du moechtest kannst Du mir ja das fertige Programm
'(wenn es geht als Quellcode/VB-Project) zuschicken.
'Guesse
'Carsten Zecher
Private Sub Command1_Click()
ListenEnde = ListView1.ListItems.Count
For i = ListenEnde To 1 Step -1 ’ rueckwaerts zaehlen
'damit die Position nicht durch die schon geloeschten Items verfaelscht wird
If ListView1.ListItems(i).Checked Then
'bleibt drin
Else
'fliegt raus
ListView1.ListItems.Remove i
End If
Next i
End Sub
Private Sub Form_Load()
'initialisiere die Liste
dummy = ListView1.ListItems.Add(, , „eins“)
dummy = ListView1.ListItems.Add(, , „zwei“)
dummy = ListView1.ListItems.Add(, , „drei“)
dummy = ListView1.ListItems.Add(, , „vier“)
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]