Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 18:20:03
Status/Typ-Werte automatisch setzen in Abhängigkeit
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
10.05.2024 16:31:37
Wenn Zelle gleich Leer dann nicht 0
10.05.2024 13:34:11
Prozentuale Auswertung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1800to1804
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
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Exceldateien als pdf zusammenfassen

Exceldateien als pdf zusammenfassen
18.12.2020 16:23:31
Ulrich
Hallo,
ich habe eine Frage an die Experten.
Mit der Datei im Anhang kann ich Dateien aus dem aktuellen Ordner auflisten, er listet alle Dateien beginnend mit "R_...." auf.
Button: Aktualisieren.
Mit dem Button "Alle Protokolle als PDF" werden alle gelisteten Dateien in eine pdf gespeichert.
Nun meine Frage:
Ist es möglich wenn ich diese Tabelle mit der Filterfunktion einschränke, das entsprechend auch nur die gefilterten Dateien als PDF zusammengefasst werden?
Aktuell geht das nicht.
Danke für eure Hilfe
https://www.herber.de/bbs/user/142431.xlsm
Gruß Ulli

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Exceldateien als pdf zusammenfassen
18.12.2020 17:11:07
Beverly
Hi Ulli,
versuche es mal so (ungetestet):
        lngLastRow = Cells(Rows.Count, 3).End(xlUp).Row
'        ReDim astrFiles(7 To lngLastRow)
Dim lngFile As Long
For lngRow = 7 To lngLastRow
If Rows(lngRow).RowHeight > 0 Then
ReDim Preserve astrFiles(0 To lngFile)
Debug.Print Cells(lngRow, 3).Hyperlinks(1).Address
Set objWorkbook = GetObject(PathName:=Cells(lngRow, 3).Hyperlinks(1).Address)
strFilePath = strFolderPath & CStr(lngRow) & ".pdf"
Call objWorkbook.Worksheets("Protokoll").ExportAsFixedFormat(Type:=xlTypePDF, _
Filename:=strFilePath, Quality:=xlQualityStandard, IncludeDocProperties:= _
False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False)
astrFiles(lngFile) = strFilePath
lngFile = lngFile + 1
Call objWorkbook.Close(SaveChanges:=False)
End If
Next

Anzeige
AW: Exceldateien als pdf zusammenfassen
18.12.2020 17:22:22
Ulrich
Hallo Beverly,
super, ganz herzlichen Dank! Top funktioniert.
Hast du vielleicht noch eine Idee für folgendes Problem.
Wenn ich die Übersichtsdatei schließe und dann wieder öffne und dann auf den Button "alle Protokolle als pdf" klicke, kommt folgender Fehler.
Wenn ich erneut aktualisiere kommt der Fehler nicht.
Diese Zeile wird markiert
Set objWorkbook = GetObject(PathName:=Cells(lngRow, 3).Hyperlinks(1).Address)
Gruß Ulli
Userbild
AW: Exceldateien als pdf zusammenfassen
18.12.2020 17:38:20
Beverly
Hi Ulli,
möglicherweise ist die Variable objWorkbook nicht geleert - ergänze mal am Ende deines Codes die folgende Zeile:
Set objWorkbook = Nothing

Anzeige
AW: Exceldateien als pdf zusammenfassen
18.12.2020 17:48:14
Ulrich
Hallo Beverly,
ich habe
Set objWorkbook = Nothing
ganz am Ende vor End Sub gesetzt, aber der Fehler kommt noch.
Gruß Ulli
AW: Exceldateien als pdf zusammenfassen
18.12.2020 17:58:19
Beverly
Hi Ulli,
dann weiß ich leider auch nicht weiter und kennzeichne den Thread als offen.

Thread offen
18.12.2020 17:59:17
Beverly
Vergessen Häkchen zu setzen.

AW: Thread offen
18.12.2020 18:06:38
Ulrich
Hallo Beverly,
so ganz entscheidend ist der Fehler nicht.
Du hast mir sehr geholfen.
Danke noch einmal.
Gruß Ulli

309 Forumthreads zu ähnlichen Themen

Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
flexible txt-Datei öffnen mit VBA
Mike

Hey Cracks,
mittels nachfolgendem Code importiere ich .txt-Dateien ins Excel.
Da es nicht immer die gleiche txt-Datei ist, würde ich gerne die
Auswahl "flexibel" halten. Wie mach ich das?
Sub Txt1_KST_importieren() ' öffnet die exportierten Kostenstellen - Txt1_importieren Mak...
05.02.2009 15:36:31
Thread-ID: 1047405
3 Beiträge
Fehlermeldung "Objekt kann nicht entladen werden"
Nik

Hallo.
Bin am Verzweifeln.
Mein excel ist im VB-Editor offen und ich versuche, das Projekt zu speichern.
Es kommt immer wieder die Fehlermeldung, dass ich excel nicht speichern kann.
Im VB-Editor versuche ich, die Userform frmStart zu schließen.
Es kommt die Fehlermeldung La...
24.02.2009 13:59:02
Thread-ID: 1053502
2 Beiträge
Anzeige
Dateien Zählen mit VBA 2003 Mac
Jan

Hallo!
Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workarou...
23.06.2009 16:02:28
Thread-ID: 1083851
3 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
30.09.2009 19:49:14
Thread-ID: 1106503
2 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
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
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
3
4
2
1
4
2
11
1
1
4
5
4
7
1
9
1
7
1
4
2
4
4
1
3
6