Listbox aktualsieren
10.01.2022 07:52:10
Chris
Ich habe zwei Listboxen. Listbox2 möchte ich mit unten stehendem Makro aktualisieren. Im Prinzip funktioniert dies auch jedoch müssen das Quellsheet für Listbox2 als aktives Sheet angezeigt werden.
Wie kann ich eine Listbox aktualisieren, ohne das Quellsheet als aktives Sheet anzeigen zu müssen?
Private Sub ComboBox2_Change()
Dim i2 As Long
Dim ilibox2 As Integer
Dim ws As String
ws = Me.ComboBox2.Value
With Me.ListBox2
.Clear
.ColumnCount = 4
.ColumnWidths = "40;90;90;0"
For i2 = 3 To Worksheets(ws).Cells(Rows.Count, "E").End(xlUp).Row
.AddItem
.List(ilibox2, 0) = Cells(i2, 5).Value
.List(ilibox2, 1) = Cells(i2, 8).Value
.List(ilibox2, 2) = Cells(i2, 9).Value
.List(ilibox2, 3) = Cells(i2, 10).Value
ilibox2 = ilibox2 + 1
Next
End With
Chris
Anzeige