Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalt als Dateiname und als PDF spe

Forumthread: Zellinhalt als Dateiname und als PDF spe

Zellinhalt als Dateiname und als PDF spe
18.07.2022 10:48:57
Wallenfang
Hallo zusammen,
habe diesen Code im Forum gefunden und angepasst:
Dim strFilename As String
ChDir "F:\Dropbox\Desktop\HMPDF\"
ThisWorkbook.Sheets("Einsatzlisten").ExportAsFixedFormat Type:=xlTypePDF _
, Filename:="F:\Dropbox\Desktop\HMPDF\" & Sheets("Einsatzlisten").Range("K2").Text _
& ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=True
Funktioniert soweit einwandfrei.
Habe nun folgendes Problem:
Ich möchte, dass das Makro nicht nur K2 als Namen druckt, sondern sämtliche Namen in der Spalte K4:K42 nacheinander druckt.
Hoffe mich verständlich ausgedrückt zu haben :-)
Gruß
Roland
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt als Dateiname und als PDF spe
18.07.2022 10:58:58
MCO
Hallo Roland!
Dann brauchst du eine Schleife:

For each zeil in range("K4:K42").specialcells(xlcelltypeconstants)
ThisWorkbook.Sheets("Einsatzlisten").ExportAsFixedFormat Type:=xlTypePDF _
, Filename:="F:\Dropbox\Desktop\HMPDF\" & zeil.Text _
& ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=True
next zeil
Gruß, MCO
Anzeige
AW: Zellinhalt als Dateiname und als PDF spe
18.07.2022 10:59:04
ChrisL
Hi

Dim rngZelle As Range
Const strPfad As String = "F:\Dropbox\Desktop\HMPDF\"
With ThisWorkbook.Sheets("Einsatzlisten")
For Each rngZelle In .Range("K4:K42")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPfad & rngZelle.Text _
& ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=True
Next rngZelle
End With
cu
Chris
Anzeige
AW: Zellinhalt als Dateiname und als PDF spe
18.07.2022 11:26:09
Wallenfang
Danke MCO, Danke Chris für die ultraschnelle Antwort.
Beide Lösungen funktionieren.
Hatte allerdings vergessen, dass vor dem drucken der jeweilige Zellinhalt aus K4:K42 vor dem Drucken nach K2 kopiert werden muss (Wert in K2 löst dann eine bedingte Formatierung aus).
Habt ihr das auch eine Lösung? :-)
Gruß Roland
Anzeige
AW: Zellinhalt als Dateiname und als PDF spe
18.07.2022 11:38:15
MCO
Ja, einfach den Befehl innerhalb der Schleife einfügen:
For each zeil in range("K4:K42").specialcells(xlcelltypeconstants)
Zeil.copy Range("K2")
sollte klappen...
Gruß, MCO
AW: Zellinhalt als Dateiname und als PDF spe
18.07.2022 11:51:43
Wallenfang
Danke MCO, klappt wie es soll. Wieder was dazugelernt.
Gruß Roland
;

Forumthreads zu verwandten 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
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
.DAT-Datei speichern mit VBA unter xls
Peter

Hallo Excel-VBA-Spezialisten,
ich habe eine Datei (xxxx.dat) die nach Bearbeitung durch ein Makro letztendlich als xxxx.xls (xxxx bleibt) gespeichert werden soll. Es wird zwar eine xls-Datei gespeichert, aber in der Datei sind immer noch die Texttrennzeichen enthalten. Wie muss ich nachfolg...
18.06.2009 12:47:46
Thread-ID: 1082544
5 Beiträge
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
Formel in Zelle einfügen
Alexander

Hallo zusammen,
Sub test() Dim str As String str = "=WENN(Daten!$F$1='Tabelle1'!" & Cells(11, 5).Address & ";JAHR('Tabelle1'!" & Cells(18, 4) _ .Address & ")" End Sub wie kann ich die Formel in der Varialben str in eine Zelle einfügen? Oder kann ich die Formel auch direkt o...
13.10.2009 09:45:55
Thread-ID: 1109248
6 Beiträge
Anzeige
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:37:43
Thread-ID: 1125900
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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