Geöffnete Tabellen in Zellen eintragen

Question

Hallo,

ich habe folgendes Problem.
Ich habe mehrere Mappen geöffnet. Nun möchte ich auf dem aktiven Tabellenblatt alle geöffneten Mappen ab Zelle B10 ... Bxx aufgelistet haben. Danke im voraus.

Camillo

Answer 1

Hi Camillo,

Sub OffeneDateien()
Dim wkbMappe As Workbook
Dim lngZeile As Long
lngZeile = 10
For Each wkbMappe In Workbooks
Cells(lngZeile, 2) = wkbMappe.Name
lngZeile = lngZeile + 1
Next wkbMappe
End Sub

Bis später,
Karin

Answer 2

Hi Karin,

danke für die schnelle Antwort. Funktioniert. Kann man noch den Namen der aktiven Mappe ausblenden und die Endungen z. B. xls ausblenden. Danke

Camillo

Answer 3

es wird doch nur der Name angezeigt und der soll jetzt nicht mehr angezeigt werden. Dann brauchst Du kein Makro, da dann nichts angezeigt werden soll.

Gruß Hajo

Answer 4

Hi Camillo,

For Each wkbMappe In Workbooks
If wkbMappe.Name <> ActiveWorkbook.Name Then
Cells(lngZeile, 2) = Application.Substitute(wkbMappe.Name, ".xls", "")
lngZeile = lngZeile + 1
End If
Next wkbMappe

Bis später,
Karin

Answer 5

Hi Karin,

perfekt, Vielen Dank

Camillo