27.12.2017, 14:52
Hallo,
habe auf meiner UserForm eine ListBox angebracht, die mit einigen Werten befüllt wird.
Wenn ich in dieser ListBox einen Wert auswähle soll mit MsgBox der ausgewählte Wert angezeigt werden. Funktioniert.
Danach soll die Auswahl wieder rückgängig gemacht werden. Dies sollte eigentlich mit dem Befehl
ListBox1.ListIndex = -1 geschehen, doch leider funktioniert das nicht. Wo liegt der Fehler?
Sub ListBox1_Click()
MsgBox ListBox1.Value 'Funktioniert
ListBox1.ListIndex = -1 'Rückgängig machen der Auswahl - Funktioniert nicht!!
End Sub
Sub UserForm_Activate()
Dim i, f: f = Array("A", "B", "C", "D")
'Befüllung der ListBox1
For i = 0 To UBound(f)
ListBox1.AddItem f(i)
Next
End Sub
habe auf meiner UserForm eine ListBox angebracht, die mit einigen Werten befüllt wird.
Wenn ich in dieser ListBox einen Wert auswähle soll mit MsgBox der ausgewählte Wert angezeigt werden. Funktioniert.
Danach soll die Auswahl wieder rückgängig gemacht werden. Dies sollte eigentlich mit dem Befehl
ListBox1.ListIndex = -1 geschehen, doch leider funktioniert das nicht. Wo liegt der Fehler?
Sub ListBox1_Click()
MsgBox ListBox1.Value 'Funktioniert
ListBox1.ListIndex = -1 'Rückgängig machen der Auswahl - Funktioniert nicht!!
End Sub
Sub UserForm_Activate()
Dim i, f: f = Array("A", "B", "C", "D")
'Befüllung der ListBox1
For i = 0 To UBound(f)
ListBox1.AddItem f(i)
Next
End Sub