Auswahl in Listenfeld aufheben
26.07.2006 17:00:18
Martin
ich habe einem Listenfeld aus der Steuerelemente-Toolbox folgenden Code zugewiesen:
Private Sub ListBox1_Click()
Krit = Worksheets("Navigation").Range("B1")
'ListBox1.Value = " "
Worksheets("Daten").Visible = True
Worksheets("Daten").Activate
If Krit = "Alle Abteilungen" Then
ActiveSheet.Range("A1").AutoFilter Field:=1
Else
ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:=Krit
End If
End Sub
Der ausgewählte Eintrag bleibt nun so lange "markiert", bis ein neuer Eintrag ausgewählt wird. Ein Klick auf einen "markierten" Eintrag bewirkt nicht, insbesondere wird mein Code nicht ausgeführt.
Ich möchte daher innerhalb des Codes die Auswahl im Listenfeld wieder aufheben oder einen vorgegebenen Eintrag auswählen. Wie geht das? Die Codezeile
ListBox1.Value = " "
oder
ListBox1.Value = ""
hat nichts gebracht.
Danke und Gruß
Martin Beck