automatisieren
22.08.2007 09:41:14
Jürg
Ich habe diesen code bekommen.
der ist sehr gut, nur muss die auszulesende datei offen sein.
kann mann den code so anpassen, dass man ein Verzeichnis durchsuchen kann ohne vorher die Datei öffnen zu müssen. der code soll Datei öffnen, Tabellenenamen (mappenname) auslesen und dann datei wieder schliessen. usw. Es sind 1250 Dateien
Option Explicit
Sub Listen2()
Dim wkb As Workbook, wks As Worksheet, lRow As Long, iCol As Integer
For Each wkb In Workbooks
lRow = lRow + 1
Cells(lRow, 1) = wkb.Name
iCol = 1
For Each wks In wkb.Worksheets
iCol = iCol + 1
Cells(lRow, iCol).Value = wks.Name
Next wks
Next wkb
End Sub
besten Dank
mit Gruss
Jürg