gymnast999
24.04.2023, 09:50
Ausgewählte Tabellenblätter als ein PDF speichern?

Hi Leute,

ich hab mit Programmierung allgemein und auch mit Excel VBA relativ wenig am Hut. Besser gesagt nichts!
Allerdings sollte ich nun für meine Arbeit ein kleines Tool basteln, welches aus einer Vielzahl von vorhandenen Tabellen, nur die benötigten anzeigt. Das alles habe ich auch hinbekommen, allerdings fehlt mir nun ein Button, welcher bei drücken nur die ausgewählten (Rest ist ausgeblendet) Tabellenblätter als eine zusammenhängende pdf speichert. Ist das möglich und wenn ja, hättet ihr da einen kleinen Code für mich?

vielen Dank für jede Hilfe welche mich aus der Verzweiflung holt ! 😅

 ...zum Beitrag
Antwort
von Nepumuk7
13.06.2023, 13:40

Hallo,

teste mal:

Public Sub PDF_Export()


    Dim objSheet As Worksheet, objActiveSheet As Worksheet


    Set objActiveSheet = ActiveSheet


    For Each objSheet In ThisWorkbook.Worksheets


        If objSheet.Visible = xlSheetVisible Then Call objSheet.Select(Replace:=False)


    Next


    Call ActiveSheet.ExportAsFixedFormat(Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\PDF", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True)


    Call objActiveSheet.Select


    Set objActiveSheet = Nothing


End Sub
...zur Antwort
TheDonk
13.06.2023, 13:16
Excel VBA range ignoriert anderes Sheet?

Hey, im Bild ist der ausgeschnittene Code. Rot unterstrichen ist die Zeile die Probleme macht. Der Code sollte von dem Sheet "hidden" die Range F5:F&lastRow haben. Beim ausführen ignoriert er aber das "hidden" und nimmt stattdessen das Sheet "dashboard".

Ablauf des Codes:

Letzte Reihe im sheet hidden herausfinden

dropdownRange definieren (Von wo welche Daten?)

dropdownCell definieren (Wo soll dropdown Menü aufrufbar sein?)

Löschen von Dateneinschränkung in dropdowncell

Dateineinschränkung einfügen (Einschränkung nur Inhalte der dropdownRange von Spalte hidden)

Das Programm arbeitet wie gesagt als wäre statt dem rot markierten dieser Code:

Set dropdownRange = dashboard.Range("F5:F" & lastRow)

 ...zum Beitrag
Antwort
von Nepumuk7
13.06.2023, 13:30

Hallo,

versuch es mal so:

dropdownRange. Address(External:=True)

Gruß Nepumuk

 ...zur Antwort
Weitere Inhalte können nur Nutzer sehen, die bei uns eingeloggt sind.