Bei mehreren Excel-Tabellen nur Tabelle1 drucken :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Bei mehreren Excel-Tabellen nur Tabelle1 drucken

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

StarTim
Newbie
Newbie

Anmeldedatum: 13.12.2007
Beiträge: 2

Verfasst am: 13.12.2007, 14:21

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!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 13.12.2007, 15:12

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

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

StarTim
Newbie
Newbie

Anmeldedatum: 13.12.2007
Beiträge: 2

Verfasst am: 18.12.2007, 14:34

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!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 18.12.2007, 14:42

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.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Excel rechnet nicht immer richtig	gausle	Microsoft Excel Hilfe	1	08.01.2009, 19:29
	Weiterbildung/Schulung in Excel	matze63	Microsoft Excel Hilfe	0	08.01.2009, 16:41
	excel formel mit und/oder	3höckerkamel	Microsoft Excel Hilfe	1	07.01.2009, 15:43
	Excel öffnet sehr langsam	falko	Microsoft Excel Hilfe	0	07.01.2009, 10:29
	excel WENN	3höckerkamel	Microsoft Excel Hilfe	5	06.01.2009, 18:25

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de