Listbox Hintergrund und Enable/Disable
02.09.2003 19:47:10
Frank
folgende Frage zur Listbox in Excel.
Basis:
Auf einer Form ist eine Listbox mit Mehrfachauswahl platziert
in der mehrere Einträge verfügbar sind. Infolge verschiedener Gründe soll
folgendes automatisch geschehen , sobald alle Einträge der Listbox
ausgewählt wurden.
1. Der Hintergrund soll eine neue farbe bekommen
2. Die Listbox soll disabeld werden
3. ein weiteres auf der Form befindliches Optionsfeld soll einen
Wert zugewiesen bekommen
Problem:
Die Zuweisung der Hintergrundfarbe und das Disablen der Box klappt nur
über externe Zuweisungen. (cmd button oder ähnliches)
In der Routine der Ereignisprozedur der Box (List1_change) wird zwar
die Bedingung korrekt erkannt, die Zuweisung auch ausgeführt, aber
die Box zeigt sich so wie vorher. Hmmm....
Bsp.-Code:
Private Sub ListBox1_Change()
Dim iIdx As Integer
Dim iCounter As Integer
iCounter = 0
For iIdx = 0 To ListBox1.ListCount
If ListBox1.Selected(iIdx) Then
iCounter = iCounter + 1
End If
Next iIdx
If iCounter = ListBox1.ListCount Then
ListBox1.BackColor = &H1234
ListBox1.Enabled = False
End If
End Sub
Hat jemand eine Idee?
Was übersehe ich?
Vielen Dank im Vorraus.
Frank