Listbox mit Daten aus externer Tabelle füllen
16.10.2018 14:31:05
Tim
ich habe eine Listbox, die ich mittels einer Combobox (Vorauswahl) gefiltert befülle. Das dazugehörige Tabellenblatt befindet sich dabei in der selben Tabelle. Jetzt würde ich gern das Tabellenblatt als externe Datenbank auslagern aber dennoch die Listbox damit füllen. Wer kann mir dabei helfen, dass ich die Listbox über eine andere (ungeöffnete Tabelle) einlese?
aktuelle Code lautet:
Private Sub Logistikkategorie_Change()
Menge_Logistik_Artikel.Value = ""
Dim rngCell As Range
Dim strFirstAddress As String
With Worksheets("Equipment Logistik").Range("A:A")
Me.Vorauswahl.Clear
Set rngCell = .Find(Me.Logistikkategorie.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.Vorauswahl
.ColumnCount = 5
.AddItem
.List(.ListCount - 1, 0) = rngCell.Row
.List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 4) = rngCell.Offset(0, 4).Value
.ColumnWidths = "0cm;5cm;4cm;4cm;2cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox "Equipment nicht gefunden"
End If
End With
End Sub