Listenfeld Anzeige aktuslisieren
Matthias
ich aktualisere die Werte eines Listenfeld mit unten angeführter Funktion. Das funktioniert auch einwandfrei, jedoch wird nach dem Einlesen der Werte die Anzeige im Listenfeld nicht aktualisiert. Erst wenn ich auf das Listenfeld klicke werden die aktualisierten Werte angezeigt.
Kann mir jemand sagen, wie ich per Code die Anzeige aktualisiere? (LB1.Refresh habe ich schon erfolglos probiert)
Vielen Dank!
Matthias
Function ListUpd()
Dim i As Long
Dim i2 As Long
Dim nm As Range
Dim sht As String
Set nm = ActiveWorkbook.Names("Start").RefersToRange
i = nm.Row + 1
i2 = 1
LB1.Clear
LB1.AddItem "Alle"
LB1.List(0, 1) = ""
Do Until Cells(i, nm.Column).Value = ""
If Cells(i, nm.Column).Value Cells(i - 1, nm.Column).Value Then
LB1.AddItem Cells(i, nm.Column).Value
LB1.List(i2, 1) = Cells(i, nm.Column + 1).Value
i2 = i2 + 1
End If
i = i + 1
Loop
End Function