Gruppe
Datei
Problem
Wie kann ich alle geöffneten Arbeitsmappen mit den zugehörigen Arbeitsblättern auflisten?
StandardModule: basMain
Sub Listen()
Dim wkb As Workbook
Dim wks As Worksheet
Dim iRow As Integer
For Each wkb In Workbooks
For Each wks In wkb.Worksheets
iRow = iRow + 1
Cells(iRow, 1).Value = wkb.Name
Cells(iRow, 2).Value = wks.Name
Next wks
Next wkb
End Sub