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
________________________________________