Arstek
08.02.2019, 15:32
VBA pdf unter Zellenname und Sietenzahl Speichern?

pdf Speichern unter Zellenname lauft sehr gut bei mir. Ich will noch bestimmte Seiten auch intergieren.

Wie kann ich das integrieren:

Range:=wdExportFromTo, From:=1, To:=2

Private Sub Speichernpdf_Click()

Dim pdfDateiName As String Dim pdfname As Variant


    pdfDateiName = ActiveSheet. _     Range("H22") & "  " & _     Range("L10") & "-" & _     Range("L11") & "  " & _     Range("A1") & ".pdf"     pdfname = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:="PDF files, *.pdf", Title:="PDF speichern")     If pdfname <> False Then         ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfDateiName, _         Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False     Else         Exit Sub     End If End Sub

...zum Beitrag
Antwort
von Arstek
09.02.2019, 10:56

Hat keiner ein Idee?

 ...zur Antwort
Arstek
24.01.2019, 09:05
SVERWEIS & WVERWEIS mit mehrere Tabellen bzw. Arbeitsblatt verbinden?

Tabelle 1 läuft sehr gut. Leider kann ich das nicht mit weitere Tabellen verbinden.

Zb. Tabelle 2 bzw. Arbeitsblatt 2 will ich 1K11 auf der Tabelle 1 in A1 abrufen.

...zum Beitrag
Antwort
von Arstek
24.01.2019, 11:12

Tabelle 1 funktioniert hervorragend. Mein Ziel ist wenn ich in der Tabelle 1 Spalte A1 statt 1B8 Eingabe 1K11eingebe soll Tabelle aus der Tabelle 2 A1 bis D1 erschein.

Zb.

=SVERWEIS($A$1;A9:D11;Tabelle2!A1:D1;2;)

Funktioniert leider nicht. Irgendwo mach ich ein kleinen Fehler die mich zum schaffen macht.

...zur Antwort