[Excel-Makro] Alle Tabellen anwählen

Computer: Software & Programmierung Office Software
1

Hi,
ich möchte mit einem Excel-Makro sowohl alle geöffneten Excel-Dateien als auch alle darin enthaltenen Tabellen durchgehen.
Dabei gibt es keinen geregelten Dateinamen und auch keinerlei festgelegte Anzahl, Reihenfolge oder Namensgebung der Tabellen.

Ich hab es bisher mit folgendem Code probiert: (Wird ausgelöst, wenn ein Button gedrückt wird…)

Private Sub CommandButton1_Click()
For Each Workbook In Application.Windows
Workbook.Activate
If ActiveWorkbook.Name „Makro.xls“ Then
For Each Worksheet In ActiveWorkbook
Select Case Worksheet.Name
Case „e_APNr_nach_Mitarbeiter“
Worksheet.Activate
Modul1.e_APNr_nach_Mitarbeiter_Gesamtsummen
Case „e_Arbeitspaket“
Worksheet.Activate
Modul1.e_Arbeitspaket_Gesamtsummen
Case „e_Mitarbeiter_nach_APNr“
Worksheet.Activate
Modul1.e_Mitarbeiter_nach_APNr_Gesamtsummen
Case „e_Mitarbeiter_nach_PSPNr“
Worksheet.Activate
Modul1.e_Mitarbeiter_nach_PSPNr_Gesamtsummen
Case „e_Projekt“
Worksheet.Activate
Modul1.e_Projekt_Gesamtsummen
Case „e_Projekt_Aufgaben“
Worksheet.Activate
Modul1.e_Projekt_Aufgabe_Gesamtsummen
End Select
Next
End If
Next
End Sub

2

Hi,
ich möchte mit einem Excel-Makro sowohl
alle geöffneten Excel-Dateien als auch
alle darin enthaltenen Tabellen
durchgehen.

Ich bin kein Excel-Spezialist. Es gibt wahrscheinlich schönere, elegantere, bessere Lösungen, aber so sollte es funktionieren (Die MsgBox dient nur dazu anzuzeigen, welches Worksheet wirklich gerade aktiv ist):

Private Sub CommandButton1_Click()
For Each Workbook In Application.Windows
Workbook.Activate
If ActiveWorkbook.Name „Makro.xls“ Then
For i = 1 To Worksheets.Count
Worksheets(i).Activate
MsgBox Worksheets(i).Name
Next
End If
Next
End Sub

3

Hi Thomas,
ich hab ein Makro geschrieben, welches alle Sheets in einem Workbook durchsucht.
Wenn du es willst, mail ich es dir zu.
Schick mir bitte ein Mail (ist einfacher).
Tschau
MAX