Variable Tabellenblattlänge abspeichern
16.12.2019 11:52:12
Erdnusskrieger
folgendes Anliegen habe ich dieses Mal:
Ich möchte zwei Excel-Worksheets abspeichern, welches bisher funktioniert. Mein Problem ist es, dass ich es nur schaffe ein festen Bereich abzuspeichern (siehe mein Quellcode unten A1-H60). Das Worksheet selbst kann zwischen 100-300 Zeilen lang sein und beinhaltet immer die Spalten A-H. Natürlich könnte ich sagen, speicher den genannten Bereich bis Zeile 300 ab. Das möchte ich aber vermeiden, da im PDF selbst dann die Gefahr von leeren Seiten besteht. Ich möchte also nur die relevanten Zeilen abgespeichert haben.
Außerdem, würde ich gerne, wenn möglich, dass das Programm bei einer neu angefangen Seite im PDF, mir die Zellen A6-H7 vom Sheet "Bewertungsbogen" ganz oben hinschreibt. Quasi als Kopfzeile.
Mein Code schaut bislang folgendermaßen aus:
Sub PDF_archivieren()
'Dateiname hinzufügen
Dim Dateiname As String
Dim vntFile As Variant
'Sheet Bewertungsbogen auswählen
Sheets("Bewertungsbogen").Select
'Dateiname im Pfad erstellen: Pfad + Fahrgestellnummer + aktuelles Datum
Dateiname = Range("H2") & "_" & Range("H4")
'Punkte "." im Dateinamen durch Unterstriche "_" ersetzen
Dateiname = Replace(Dateiname, ".", "_", Count:=2)
vntFile = Application.GetSaveAsFilename(Dateiname, _
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile False Then
Sheets(Array("Prüfanleitung", "Bewertungsbogen")).Select
ActiveSheet.Range("A1:H60").ExportAsFixedFormat _
Type:=xlTypePDF, _
filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End Sub
Grüße, Erdnuss