In dem nachfolgenden Code-Auszug fülle ich eine Lisbox mit Daten und beziehe mich dabei auf eine Tabelle innerhalb der selben Arbeitsmappe.
Die Tabelle heißt "Reverenz" (falschgeschrieben ich weiß) und ist die Standard Datenquelle.
Jetzt möchte ich dem User aber die Möglichkeit geben, auf eine eigene Datentabelle zu zugreifen. Wie das erfolgen soll wird dann mein Problem sein.
Mir geht es nur darum, wie kann ich die Datenqelle in dem Code so referenzieren, das die Listbox auf die andere Datei zugreift.
!!!! Wichtig dabei ist.... Der User muß die Möglichkeit haben diese Datei mit dem DateiÖffnen-Dialogfenster auszuwählen. Diese Auswahl, komplett mit Pfad und Dateiname soll dann an der entsprechenden Stelle im Code stehen.
Wie geht dat.. ?
Im Archiv finde ich leider dazu nicht sehr viel. Oder es paßt nicht zu meinem Problem.
Vielleicht weiß jemand wo es so ein Projektauszug gibt wo ich dann das ganze Problem mal begucken kann.
Danke Gruß Kersten
Private Sub UserForm_Initialize()
Dim Zeiger As Integer
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("Reverenz")
'darum geht es Dieses Set wks soll dynamisch sein wie oben beschrieben
Zeiger = wks.Cells(1, 2)
iRow = wks.Cells(Rows.Count, 2).End(xlUp).Row
With lstWaren
.RowSource = CVar(wks.Name & "!B" & Zeiger & ":F" & iRow)
End With
'und so weiter