Druck-Makro

Moderator: ModerationP

Druck-Makro

Beitragvon Martin1220 » 16. Mai 2019, 10:45

Hallo!
Bin neu hier - vielleicht kann jemand helfen.

In Tabelle 5 befindet sich ein Button.
Dieser soll das Blatt "Einzel" öffnen und dort aus einem Dropdown-Menü einen bestimmten Wert auswählen. Daraufhin verändern sich die dargestellten Daten im Blatt "Einzel".
Nun soll diese Darstellung als .pdf gespeichert werden. Dateiname soll der Wert aus dem Dropdown-Menü sein.

Bis jetzt habe ich folgendes probiert:
Code: Alles auswählen
Private Sub CommandButton1_Click()  'Button startet Makro

Sheets("Einzel").Select             'Blatt "Einzel" öffnen

ActiveSheet.Range("E8").Value = "5" 'Im Dropdown-Menü im Feld E8 einen bestimmten Wert aufrufen

Call Drucken                        'Startet das Druck-Makro
   
End Sub

Sub Drucken()
'Druckbereich des Blattes soll als .pdf gespeichert werden. Der Name der Datei soll dem oben ausgewählten Wert entsprechen

ChDir ThisWorkbook.Path
    Tabelle4.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Range("E8").Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

End Sub


Funktioniert soweit sogut... nur dass als Dateiname immer der Wert "2" herauskommt - unabhängig welchen Wert ich in den Code eingebe.
Ideen?
Martin1220
 

Re: Druck-Makro

Beitragvon cysu11 » 16. Mai 2019, 12:20

Hallo Martin,

ist Sheets("Einzel") das gleiche wie Tabelle4 bei Dir?
Lade bitte deine Beispieldatei hoch, wenn du nicht zurecht kommst!

LG
Alexandra
cysu11
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 103
Registriert: 23. Mär 2019, 11:12

Re: Druck-Makro

Beitragvon MisterBurns » 16. Mai 2019, 13:04

Code: Alles auswählen
    Tabelle4.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Sheets("Einzel").Range("E8").Value & ".pdf", Quality:=xlQualityStandard, _
Schöne Grüße
Berni
MisterBurns
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1376
Registriert: 28. Mär 2018, 13:13

Re: Druck-Makro

Beitragvon Martin1220 » 18. Mai 2019, 00:46

Danke!
MrBurns hatte die Lösung :D
Martin1220
 


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 25 Gäste