Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken von vielen Excel-Datein

Forumthread: Drucken von vielen Excel-Datein

Drucken von vielen Excel-Datein
08.11.2005 10:37:49
Basti
Hallo und guten Morgen,
ich habe in einem Verzeichnis viele Excel-Dateien die ich alle öffnen muss, ausdrucken und wieder schließen. Eine langdauernde und langweilige Arbeit.
Weiß einer wie es schneller geht, so zu sagen in einem Rutsch oder so.
Gruß, Basti
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken von vielen Excel-Datein
08.11.2005 11:09:31
Marc
Hallo Basti,
damit sollte es gehen.
Gruß Marc

Sub Drucken()
On Error Resume Next
verz = InputBox("Geben Sie den Pfad ein!")
If verz = "" Then Exit Sub
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = ".xls"
.Execute
End With
For y = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(y))
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
quelle.Close savechanges:=False
Application.DisplayAlerts = False
Next y
End Sub

Anzeige
AW: Drucken von vielen Excel-Datein
08.11.2005 11:15:45
Basti
Hallo Marc,
perfekt ...., das funktioniert ja super, vielen Dank.
Ich wünsche Dir noch eine schönen Tag und viel Erfolg bei allem.
Gruß, Basti
doch noch eine Bitte an Marc
08.11.2005 11:34:09
Basti
Hallo Marc,
bei der Kontrolle der Ausdrucke habe ich festgestellt, dass sämtliche Arbeitsblätter einer Datei gedruckt werden. In allen Dateien soll aber nur ein Arbeitsblatt gedruckt werden. Der Name der zu druckenden Arbeitsblätter ist immer der selbe.
Bitte, bitte kannst Du mir den Code noch etwas modifizierenß
Grúß, Basti
Anzeige
AW: doch noch eine Bitte an Marc
08.11.2005 11:46:53
Marc
Hey,
ändere die Zeile:
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
in:
Sheets("HIER DEN NAME DEINES BLATTES").PrintOut
Gruß Marc
super, nochmals vielen Dank oT
08.11.2005 11:50:56
Basti
;

Forumthreads zu verwandten Themen

Menü in Excel von VB6.0 aus erzeugen??
VB6.0

Hallo zusammen,
ich hoffe ihr könnt mir bei meinem Anliegen helfen. Ich möchte den VBA-Code in eine dll transportieren (VB 6.0) und scheitere schon an dem Menüaufbau in Excel.
In der dll steht in einer Klasse:
Sub Test_Excel() Set xl = GetObject(, "Visio.Application") Set objMenu...
07.08.2008 20:23:28
Thread-ID: 1000091
13 Beiträge
Färben von Textboxen in Userform
Textboxen

Guten Morgen!
Ich habe in einer UserForm 22 TextBoxen in denen Zahlen stehen.
Wenn eine positive Zahl in den Textboxen steht, dann soll der Hintergrund (Backcolor) grün gefärbt werden.
Wenn eine negative Zahl in den Textboxen steht dann soll der Hintergrund hellrot gefärbt werden.<...
21.08.2008 07:38:00
Thread-ID: 1003354
4 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Indexierung von Steuerelementen in VBA
Steuerelementen

Hallo,
aus VB kenne ich die Vorgehensweise, dass man Steuerelemente (z.B. Labels) Indexieren kann. Man kann sie dan komfortabel über eine Schleife ansteuern.
Ein simples Beispiel zum verdeutlichen:
For i=1 to 10
label(i).text=i
next i
Die zehn Labels haben nun eine Besc...
01.09.2008 11:30:41
Thread-ID: 1006376
3 Beiträge
Anzeige
Verknüpfung von xls in ppt
xls

Hallo,
Ich möchte Grafiken in ppt mit einer separaten xls verknüpfen, die sich die Daten von dort automatisch bei Aktuallisierung zieht. Die Basis soll eine xls sein, die auf verschiedenen Blättern Grafiken in ppt erzeugen soll.
Habt Ihr eine Idee?
Danke im voraus.
Gruß,
Al...
08.09.2008 18:21:00
Thread-ID: 1008232
2 Beiträge
Formateierung von Textboxen in einer Userform
Textboxen

Hallo, nochmal 'ne warscheinlich blöde Frage:
Wie man Schriftart, Farbe etc. für Textboxen einstellt, bekomme ich hin. Aber
wie lege ich fest, dass es sich um das Format "Zahl" mit x Kommastellen oder
ähnliches handeln soll? - Hintergrund:
Auf einer Userform muß der Benutzer in...
16.09.2008 16:24:26
Thread-ID: 1010158
2 Beiträge
Index von Optionsbuttons
Optionsbuttons

Hallo.
Ich habe in einem TB über die Symbolleiste Formulare gaaanz viele Optionbuttons erzeugt.
Diese liefern bei Zellposition A1 eine fortlaufende Zahl.
Die Zahl verwende ich über einen Sverweis für eine Art "Menüsteuerung".
Nun möchte ich etwas zwischen 15 und 16 einfügen, u...
26.09.2008 11:56:05
Thread-ID: 1012571
2 Beiträge
Darstellung von Variablen in Textfeldern von Grafi
Variablen

Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
06.10.2008 18:22:00
Thread-ID: 1014516
5 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Datumsübernahme von Exel in Serienbrief Word
Exel

Hallo Ihr Spezialisten,
ich habe ein kleines Problem mit der Übertragung von zwei Spalten, die Datumsangaben enthalten. Diese werden in einen Word Serienbrief übertragen und werfen dann leider nur noch 5-stellige Zahlen aus.
Wo ist das Problem? Wir haben die Formatierungen alle abgesche...
17.10.2008 12:37:30
Thread-ID: 1017121
3 Beiträge
Werte von Checkboxen in Userform speichern
Checkboxen

Hallo liebe Forumleser,
ich habe in VBA Excel eine Userform mit Checkboxen erstellt. Ein "OK Button" in der Userform schreibt die Captions der angekreuzten Checkboxen in eine Tabelle:
Worksheets("BDaten").Range("D65:D67").Clear
If chkAKurzI1 = True Then
Worksheets("BDaten").Cell...
17.10.2008 16:39:00
Thread-ID: 1017214
8 Beiträge
Anzeige
Inhalte von Worddatei in Excel einlesen
Worddatei

Hallo,
gibt es eine Moglichkeit die Inhalte von mehreren Worddatei, die sich alle in einem Ordner befinden in Excel einfügen zu lassen.
Dabei soll auf jeder Tabelle der Excelmappe der Inhalt einer Worddatei erscheinen. auf der ersten Tabelle will ich später ein Inhaltsverzeichnis mit L...
26.10.2008 13:30:00
Thread-ID: 1019368
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige