ich bin nun schon seit ein paar Tagen am suchen und probieren. Komme aber nicht ans Ziel.
Ich habe ein Übersichtsblatt und 16 weitere Blätter. Es soll nur mit der Übersicht gearbeitet werden. Dort kann ich bis zu 16 Namen eintragen, die dann Automatisch auf das jeweilige Blatt eingetragen werden. Das Funktioniert auch super.
Nun möchte ich per Knopfdruck eine PDF erzeugen lassen. Das aber nur aus den Arbeitsblättern bestehen soll in dem auch ein Name eingetragen wurde.
Folgendes habe ich benutzt:
Sub Drucken()
Dim rngBereich As Range, rng As Range
Dim iCounter As Integer
With Worksheets("Übersicht")
Set rngBereich = .Range("B11:B26")
ReDim ar(WorksheetFunction.CountA(rngBereich) - 1)
For Each rng In rngBereich
If rng "" Then
ar(iCounter) = rng.Offset(, -1)
iCounter = iCounter + 1
End If
Next rng
End With
Sheets(ar).PrintPreview
End Sub
Das Funktioniert soweit auch ganz gut.
Nun wollte ich anstelle des PrintPreview den Export packen, aber das klappt nicht so einfach.
Sheets(ar).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\TEMP\Testdatei2.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Hat jemand eine Idee wie man das lösen könnte?