Listview Eintrag abwählen / ListView bereinigen

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von TeamBob.

    Listview Eintrag abwählen / ListView bereinigen

    Hallo
    Ich habe ein Formular erstellt wo man Einträge in ein ListView erstellen, laden und bearbeiten kann.
    Wenn ich einen Eintrag anklicke, dann füllen sich die Textfelder entsprechend. JEtzt möchte ich gerne,
    das beim Klicken innerhalb der Formulars, sich die Auswahl im ListView aufhebt und sich dann die Textfelder leeren.
    Habe das wie folgt realisiert. Es klappt auch soweit wenn Einträge in der Listbox sind. Wenn jedoch kein Eintrag vorhanden ist,
    dann bekomme ich die Fehlermeldung: ,, Objektvariable oder WITH-Blockvariable nicht festgelegt."
    Wie kann ich das umgehen?

    Visual Basic-Quellcode

    1. Private Sub UserForm_Click()
    3. 'ausgewählter Eintrag im ListView wird deaktiviert
    4. If Me.lvwPersonal.SelectedItem >= 0 Then
    5. lvwPersonal.SelectedItem.Selected = False
    6. Set lvwPersonal.SelectedItem = Nothing
    7. End If
    9. 'die Textfelder werden wieder bereinigt
    10. Me.txtTest1= ""
    11. Me.txtTest2 = ""
    12. Me.txtTest3 = ""
    14. End Sub

    Also:

    Visual Basic-Quellcode

    1. ​
    2. If Me.lvwPersonal.SelectedItem >= 0


    Gibt das gewählte Item zurück. Das ist selten >= 0. Es ist entweder ein Item oder Nothing.
    Also einfach:

    Visual Basic-Quellcode

    1. ​
    2. Private Sub UserForm_Click()
    4. 'ausgewählter Eintrag im ListView wird deaktiviert
    5. If Not Me.lvwPersonal.SelectedItem Is Nothing Then
    6. lvwPersonal.SelectedItem.Selected = False
    7. Set lvwPersonal.SelectedItem = Nothing
    10. 'die Textfelder werden wieder bereinigt
    11. Me.txtTest1= ""
    12. Me.txtTest2 = ""
    13. Me.txtTest3 = ""
    14. End If
    15. End Sub
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende