Office: Bei mehreren Excel-Tabellen nur Tabelle1 drucken

Hallo zusammen! Bin zu ersten Mal hier und hoffe natürlich auf Hilfe!

Ich habe mehrere Excel-Dateien (ca. 2000 Stck.), die alle aus 2 Arbeitsmappen bestehen!

Ich suche nun nach einer Lösung, wobei ich alle Dateien direkt markieren o. ä. kann und dann nur nur die erste Arbeitsmappe (Tabelle1) aus allen Dateien drucken kann!

Gibts da eine Möglichkeit? Gruss!

 

Hallo!

Rein theoretisch sollte dieser Code alle ersten Tabellenblätter aller xls-Dateien des angegebenen Ordners drucken.
Ob das allerdings bei 2000(!) Dateien zu Problemen führt, kann und will ich hier nicht testen...

Code:

Sub ErstesBlattDrucken()
Dim Mappe As String
Const Pfad = "E:\Test\"
Mappe = Dir(Pfad & "*.xls")
Do While Mappe <> ""
Workbooks.Open Pfad & Mappe, UpdateLinks:=0
Workbooks(Mappe).Sheets(1).PrintOut
Workbooks(Mappe).Close SaveChanges:=False
Mappe = Dir
Loop
End Sub

 

Danke schonmal für die schnelle Antwort!

Also ich habe alle Dateien noch nicht in einem Ordner, aber das wäre ja nicht das Problem!

Wenn ich dann alle Dateien in einem Ordner habe, wie gehe ich dann vor?

Muss ich alle markieren? Wo muss ich den Code eingeben?

Sorry, aber so weit bin ich in Excel dann doch nicht!
Könntest du mir den Ablauf vielleicht Schritt für Schritt beschreiben (für Doofe quasi)?

Wäre super nett!

 

Hallo!

Öffne eine neue Excel-Mappe (und speichere sie am Ende irgendwo AUSSERhalb des besagten Ordners).
Drücke Alt+F11
Wähle "Menü Einfügen > Modul" und füge den angegebenen Code ins Codefenster rechts ein.
Passe in der dritten Zeile den Ordner an (letzten Backslash nicht vergessen).
Zurück in der Tabelle rufst du das Makro mit Alt+F8 auf.