Suchergebnisse
Suchergebnisse 1-4 von insgesamt 4.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
-
Hallo zusammen, ich benötige eure Hilfe. Ich habe eine Arbeitsmappe mit 6 Arbeitsblättern und will ein Makro schreiben um auf Klick alle 29 Einheiten aus der Dropdownliste als PDF's in einen Ordner zu exportieren. Für eine Einheit aus der Dropdownliste müssen immer zwei Arbeitsblätter kombiniert werden. Mein bisheriger Code sieht so aus: Sub printPDFs() Const fileRef = "B1" 'export Folder Name Const title = "A1" 'title fo PV plant Dim exportFolder As String 'name of folder to store files Dim exp…
-
Danke für deine Antwort, Ja genau, ich will zwei Arbeitsblätter von 7 exportieren. leider kenn ich mich gar nicht mehr aus und es funktioniert nichts. Wie müsste der neue Code aussehen um das Ding zum Laufen zu bringen?
-
Danke dir, hab die Lösung nun selbst herausgefunden
-
Sub ExportAsPDF() Dim rng As Range Dim arr As Variant Dim sFile As String, sPath As String sPath = Environ("USERPROFILE") & "\Desktop" sPath = sPath & "\PDF_" & Format(Date, "yyyyMMdd") & "_" & Format(Now, "hhmmss") MkDir sPath arr = Array(Worksheets(1).Name, Worksheets(2).Name) For Each rng In Range("PLANTS").Cells sFile = sPath & "\" & rng.Value & ".pdf" Range("C2").Value = rng.Value Worksheets(arr).Copy ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ sFile, Quality:=xlQuality…