Ausgeblendete Tabelle in ListBox einlesen
26.01.2008 19:59:48
edie
würde gerne aus der ausgeblendeter Tabelle "Stammdaten" den Inhalt
in eine ListBox einlesen. Leider wird der Inhalt der activen
Tabelle eingelesen. Wo liegt dass Problem?
Private Sub UserForm_Initialize()
Dim i As Integer
Dim Wks As Worksheet
Set Wks = Worksheets("Stammdaten")
With ListBox1
i = Cells(Rows.Count, 1).End(xlUp).Row
.RowSource = Wks.Range("A3:F" & i).Address(External:=True)
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
End With
End Sub
Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße