Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Dateien öffnen und letzes Blatt drucken

mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 12:22:02
Andreas
Hallo liebe Forumer,
gibt es eine Möglichkeit mit VB folgendes abzubilden.
Ich möchte gerne ca. 30 Exceldateien (Auswahl) nacheinander öffnen und immer
das letzte Tabellenblatt auf einer Seite ausdrucken?
Danke für eure Hilfe.
Gruß
Andreas

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 13:56:11
cysu11
Hi Andreas,
verstehe ich das richtig, du möchtest die 30 Dateien beim Ausführen des Codes selbst auswählen können, oder sind die Dateien fest und vorher bekannt?
LG
Alexandra
AW: mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 13:57:32
UweD
Hallo
hier mal ein Beispiel für 3.
Sub LastPrint()
    Dim Arr, Datei, WB As Workbook, Pfad As String, Ext As String
    
    'Vorgaben 
    Arr = Array("Mappe1", "Mappexx", "Mappe2")
    Pfad = "X:\Temp\test\"
    Ext = ".xlsx"
    'Vorgaben Ende 
    
        
    Pfad = IIf(Right(Pfad, 1) = "\", Pfad, Pfad & "\")
    
    For Each Datei In Arr
    
        If Dir(Pfad & Datei & Ext) <> "" Then
            
            Set WB = Workbooks.Open(Pfad & Datei & Ext) 'öffnen 
            WB.Sheets(Sheets.Count).PrintOut 'letztes Blatt drucken 
            WB.Close False 'schließen 
        
        End If
    
    Next
End Sub

LG UweD
Anzeige
AW: mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 14:08:50
Andreas
Hallo Uwe,
hallo cxsu11,
vielen Dank schon einmal.
Die Exceldateien befinden sich 4 verschiedenen Ordnern.
DEswegen wäre eine Auswahlmöglichkeit der Dateien gut.
Diese sollen geöffnet werden und das letzte Blatt soll gedruckt werden.
Kann man mit VBA auch einstellen, dass alles was auf dem jeweiligen letzten Blatt
gedruckt wird auf eine Druck-Seite komprimiert wird?
Danke und Gruß
Andreas
AW: mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 15:02:16
UweD
Hi
also Verzeichnisübergreifend,fällt mir nichts ein.
sonst so...
Auswahl mehrerer Dateien bei gleichzeitigem drücken von Strg oder/und UmschaltTaste
Sub LastPrint()
    Dim Dlg As FileDialog
    Dim Si, Pfad As String
    Dim WB As Workbook, TB As Worksheet
    
    Pfad = "x:\temp"
    
    Set Dlg = Application.FileDialog(msoFileDialogFilePicker) 'Datei wählen" 
    With Dlg
        .AllowMultiSelect = True 'Darf der User mehrere Dateien auswählen Ja 
        .Filters.Add "Excel", "*.xlsx; *.xlsm" 'FIlter, welche Dateien darf er auswählen 
        .InitialFileName = Pfad 'Welches Verzeichnis soll voreingestellt sein 
    End With
    
    If Dlg.Show = True Then
        For Each Si In Dlg.SelectedItems 'Die Abfrage für den selektierten Eintrag 

            'Öffnen 
            Stop
            Set WB = Workbooks.Open(Si)
            
            Set TB = WB.Sheets(WB.Sheets.Count)
            
            'Formatieren 
            Application.PrintCommunication = False
            With TB.PageSetup
                .FitToPagesWide = 1
                .FitToPagesTall = 1
            End With
            Application.PrintCommunication = True
            
            'Drucken 
            TB.PrintOut
            
            'Schließen 
            WB.Close False

        Next
    End If
End Sub

LG UweD
Anzeige
AW: mehrere Dateien öffnen und letzes Blatt drucken
23.04.2019 15:50:04
Andreas
Hallo Uwe,
vielen Dank für deine Hilfe. Es klappt.
Habe die Dateien alle in ein Verzeichnis kopiert.
Gruß
Andreas
Prima! Danke für die Rückmeldung. owT
23.04.2019 15:51:47
UweD

301 Forumthreads zu ähnlichen Themen

als PDF drucken
KLE

Hallo und Guten Abend zusammen,
...jetzt habe ich meine Datei super hinbekommen - alles funktioniert und so, aber wie immer kommt mein Chef im Nachgang mit einem Sonderwunsch...und da komm ich ohne Eure Hilfe auch nicht weiter :o(
Ich habe es nun dank Eurer Unterstützung geschafft aus e...
25.09.2008 18:01:07
Thread-ID: 1012395
2 Beiträge
Anzeige
pdf Dateien in einem Ordner drucken
Gerhard

Hallo zusammen,
ich habe folgendes Makro um alle pdf Dateien in einem Ordner zu drucken.
Der Druck und alles funktioniert wunderbar. Ich möchte jedoch, dass der Druck in auf- bzw. absteigender Reihenfolge passiert. Die pdf Dateien haben Namen wie
2100005897.pdf
2100005898.pdf
13.07.2009 15:58:37
Thread-ID: 1088238
4 Beiträge
VBA Makro erweitern um Funktion "als pdf drucken"
Sandra

Hallo zusammen,
ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über...
04.08.2009 16:53:32
Thread-ID: 1093571
14 Beiträge
Anzeige
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
mehrere Dateien drucken
Thomas

Hallo,
ich habe ein kleines Problem mit ca. 1000 Exceldateien.
Diese müssten nun zur Jahresauswertung gedruckt werden. Nun suche ich eine Möglichkeit alle Dateien auf einmal zu drucken. Das Problem ist das wenn ich im Dateiordner die Dateien markiere und dann im DropDown Menü drucken au...
01.02.2010 17:15:21
Thread-ID: 1134843
7 Beiträge
per VBA als PDF speichern - mit Code
Klaus

Moin Moin,
um eine Arbeitsmappe als PDF zu speichern, bemühe ich den "PDFCreator" sowie den Drucken-Dialog. _ Der Recorder gibt mir dann folgendes: Sub Makro1() Application.ActivePrinter = "PDFCreator auf Ne00:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDFCreator...
16.04.2010 14:23:54
Thread-ID: 1152230
2 Beiträge
Tabellenblatt als PDF und als E-Mail senden VBA
andreas

Hallo zusammen,
knifflige Aufgabe, habe eine Anwendung mit mehreren Tabellenblättern.
Jetzt will ich nach betätigen des CommandButton1 Tabellenblatt1 als PDF generieren, der Name des PDF soll sich aus Wert Zelle A1&B1 zusammensetzen, zur PDF Erzeugung habe ich PDF Creator als Druck...
09.06.2010 14:37:06
Thread-ID: 1161083
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
13
6
4
2
6
1
5
1
4
10
2
1
6
1
7
5
2
1
2
2
3
2