Office: Tabellenblattnamen aus anderer Mappe in ListBox auflisten

Hallo zusammen.

Ich bin auf der suche nach einem VBA-Code wo mir die Tabellenblattnamen und eine bestimmte Zelle in einer ListBox anzeigt.

Mappe1 ist offen. Dort klicke ich auf einen Button dann soll eine UserForm geöffnet werden wo sich eine LsitBox befindet dort sollen dann die Tabellenblatnamen aus Mapp2 angezeigt werden. Die Mappe2 soll per klick auf den Button gleich mit geöfnet werden oder wenn es möglich ist das auch bei geschlossener Mappe2 passieren. Am liebesten wäre es mir wenn Mappe2 zu bleiben kann.

Ist soetwas möglich? Wenn Ja wie?


Danke

Gruß Michael

 

Hi Michael,

ich nehme an, dass in der anderen Mappe dann auch irgendetwas ausgeführt werden soll - denn wozu muss man sonst die Namen der Tabellenblätter auflisten? Aus diesem Grund sollte die andere Mappe schon geöffnet bleiben. Weise folgenden Code dem Schalter im Tabellenblatt zu:

Code:

Sub Start()
   Dim wksTab As Worksheet
   Application.ScreenUpdating = False
   Workbooks.Open "D:\test\AndereMappe.xlsm" '<== Name und Pfad anpassen
   With UserForm1.ListBox1
      For Each wksTab In ActiveWorkbook.Worksheets
         .AddItem wksTab.Name
      Next wksTab
   End With
   ThisWorkbook.Activate
   UserForm1.Show
   Application.ScreenUpdating = True
End Sub

Falls in der anderen Mappe doch nichts ausgeführt werden soll, kannst du anstelle der Zeile ThisWorkbook.Activate dieses schreiben: Workbooks("AndereMappe.xlsm").close

Bis später,
Karin

 

Hallo Karin

Vielen Dank. Ich habe doch etwas vergessen.

Wenn ich nun einen Eintrag in der ListBox doppelt anklicke soll mir das entsprechende Tabellenblatt angezeigt werden.

Gruß Michael

 

Hi Michael,

Code:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   Workbooks("AndereMappe.xlsm").Worksheets(ListBox1.Value).Activate
End Sub

Bis später,
Karin

 

Hallo Karin

Super vielen Dank. Mußte noch etwas ändern da er mir sonst nur die UserForm auf lässt und nicht weiter macht. Habe am Ende noch "Unload Me" rein machen müßen. Nun ist es halt nur so das ich jedes mal die UserForm aufrufen muß. Gibt es da noch einen anderen weg? Vieleicht kannst mir da nochmal helfen bitte.

Danke schon mal für die Super hilfe von Dri.

Gruß Michael

 

Hi Michael,

setze die Eigenschaft ShowModal des UserForms auf True, dann kann diese geöffnet bleiben und du kannst trotzdem in der Tabelle arbeiten. Ich hatte angenommen, dass dir das bekannt ist, deshalb habe ich es in meinem letzten Beitrag nicht erwähnt.

Bis später,
Karin

 

Hallo Karin

Wuste ich bisher noch nicht. Aber vielen Dank für die Hilfe. Nun habe ich nur ein anderes Problem mit einem Code. Hier der Link zum neuen Thema