Gruppe
Datei
Problem
Wie kann ich alle Arbeitsmappen- und die zugehörigen Tabellenblattnamen des aktuellen Verzeichnisses über eine MsgBox anzeigen lassen?
StandardModule: basMain
Sub TabellenAuslesen()
Dim wks As Worksheet
Dim iCounter As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
With Application.FileSearch
.LookIn = Range("B1").Value
.FileType = msoFileTypeExcelWorkbooks
.Execute
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(iCounter), False
For Each wks In Worksheets
MsgBox _
prompt:=wks.Name, _
Title:=ActiveWorkbook.Name
Next wks
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub