Ich verzweifle gerade an folgendem Code.
Möchte damit alle von mir in 'Tabell1' per 'Namens-Manager' festgelegten 'Namen' in der 'ListBox1' auflisten. 'ListBox1' soll mit 'UserForm_Initialize()' wie folgt gefüllt werden, deshalb Me. Das funktioniert soweit auch, aber ich bekomme immer nicht die erwarteten Einträge in der Listbox gelistet. In unten gezeigter Variante z. B. nur 'Tabelle1'. Und ich habe schon ca. 10 Varianten durch probiert. Bei einer anderen Variante gab es alle 'Namen' aber zusätzlich in der 'ListBox1' oben dran gestellt der Eintrag 'Tabelle1!_FilterDatabase', den ich im 'Namens-Manager' überhaupt nicht sehe.
Grundsätzlich scheitere ich m. E. daran, dass 'Names' wohl (?) nicht auf 'Worksheets' + in meinem Fall auf 'Tabelle1' bezogen werden kann?!
Erschwerend kommt hinzu, dass ich 'Tabelle1' als String in der globalen Variable 'AusgangsTabelle' Modul- + UserForm-übergreifend verwende.
Private Sub UserForm_Initialize()
Dim NamensBer As Name
ListBox1.RowSource = ""
For Each NamensBer In Sheets(AusgangsTabelle).Names
Me.ListBox1.AddItem Sheets(AusgangsTabelle).Name
Next
End Sub
Schon mal vorab meinen herzlichen Dank für sachdienliche Hinweise.
Gruß
Frank