... schon die nachste frage
haben folgenden code gefunden
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
kann man den so abänders , das zuerts der dateiname ist "A" bei "B" tabellenname1; "C" tabelenname2 etc.
besten dank
mit gruss
jürg