Wie kann ich alle offenen Excel- Dateien, ausgenommen die aktive Datei, in eine ListBox einlesen, damit ich anschliessend mittels der ListBox eine Datei definieren kann?
Bin im Forum nicht fündig geworden.
Vielen Dank
Gregor
Sub start()
Dim wbMappen As Workbook
For Each wbMappen In Application.Workbooks
If wbMappen.Name ThisWorkbook.Name Then UserForm1.ListBox1.AddItem wbMappen.Name
Next wbMappen
UserForm1.Show
End Sub
________________________________________
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen