Hallo Pierre, als Erstes solltest Du die Daten aus den Zellen F4,G4 und E1 mit der Funktion VERKETTEN in einer anderen Zelle zusammenfügen. Es ist egal, ob die Zellen einzeln oder verbunden sind. Wenn sie Text enthalten, reicht die Aufzählung jeweils mit Semikolon und einem Leerzeichen. wenn die Zellen Werte enthalten (Datum zählt dazu), die Zellen als TEXT deklarieren und die Formatierung angeben. Es folgen zwei Beispiele:
Text: |
Die erste Seite |
in |
dem |
Buch |
|
|
|
|
Formel: |
=VERKETTEN(B1;" ";D1;" ";E1;" ";F1) |
|
|
|
|
Ergebnis: |
Die erste Seite in dem Buch |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Text: |
25 |
12.05.19 |
Ernst |
Piepenbrink |
325 |
|
|
|
Formel: |
=VERKETTEN(TEXT(B5;"0");" ";TEXT(D5;"TT.MM.JJJJ");" ";E5;" ";F5;" ";TEXT(G5;"0,00")) |
Ergebnis: |
25 12.05.2019 Ernst Piepenbrink 325,00 |
|
|
|
|
Das war aber noch nicht alles: die Zelle, in der der verkettete Begriff steht beinhaltet eine Formel. Die solltest Du nicht kopieren und als Dateinamen verwenden, sondern eine Kopie der Zelle als Text verwenden. Schalte den Makrorecorder ein, kopiere Deine Verketten- Zelle und füge den Inhalt in eine weitere Zelle mit INHALTE EINFÜGEN und WERTE ein. Diese Adresse fügst Du hinter FileName=Range( ein, meinen Text entfernst Du.
Der richtige Pfad: im Finder zum Ordner gehen, in den die PDF-Datei gespeichert werden soll, in den leeren Ordner klicken, rechte Maustaste, Informationen. Den Pfad kopieren (Vorsicht, das ist noch nicht der richtige Pfad!) und z.B. in eine Excel Datei (vorläufig) kopieren. Das ist der richtige Pfad, er fängt an mit /Users/ und endet mit einem Slash /. Den kannst Du später hinter FolderName=" eunfügen (meinen Text entfernen).
Jetzt füge den anschließenden Code in Deine Makro-Datei ein:
Dim FileName As String |
Dim FolderName As String |
Dim Folderstring As String |
Dim FilePathName As String |
|
|
|
ActiveSheet.PageSetup.Orientation = ActiveSheet.PageSetup.Orientation |
|
|
|
FolderName="/Users/Benutzername und weitere Ordner.../" |
|
|
|
FileName = Range("Adresse der Zelle mit der Verketten- Kopie").Formula & ".pdf" |
|
|
|
Folderstring = FolderName |
FilePathName = Folderstring & FileName |
|
|
|
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ |
FilePathName, Quality:=xlQualityStandard, _ |
IncludeDocProperties:=True, IgnorePrintAreas:=False |
Viel Glück!
|