|
Hallo Karl-Heinz,
Habe den Code jetzt noch mit der Abfrage um den Teil erweitert ob Checkboxen False sind...
Das funktioniert gut.
Dann habe ich die Abfrage, ob die Datei vorhanden ist geprüft, weil das nicht funktioniert hatte - habe den Fehler gefunden
sFileName = Rout & Dat & ".pdf" ' Vorher: FileName = Rout & Dat musste um & ".pdf" erweitert werden.
Aber leider funktioniert dan der Teil If bcheck nicht, leider bin ich noch nicht dahinter gestiegen warum.
Hast Du eine Idee woran es liegen kann?
Vielen Dank für Deine Vorgaben, habe wieder was gelernt. Würdest Du mich nochmal unterstützen? Den Code habe ich unten angefügt.
Sub PDFExport()
Dim sSheets As String, sFileName As String
Dim bCheck As Boolean
Dim Rout, Dat
Rout = "T:\Qualitätsmanagement\Aufzeichnungen\Änderungen_Sondergenehmigungen\Requests\"
Dat = Range("M1").Value & "_" & Range("M2").Value & "_" & Range("M3").Value
' ÄA_Nummer Art.nr Art.bezeichnung
sFileName = Rout & Dat & ".pdf" ' Vorher: FileName = Rout & Dat
sSheets = "Header info,Change description,Task list"
If Tabelle5.CheckBox36.Value Then bCheck = True: sSheets = sSheets & ",TT- Annex"
If Tabelle2.CheckBox1.Value Then bCheck = True: sSheets = sSheets & ",Annex Change description"
If Tabelle2.CheckBox1.Value Then bCheck = False: sSheets = sSheets
If Tabelle5.CheckBox36.Value Then bCheck = False: sSheets = sSheets
Sheets(Split(sSheets, ",")).Select
'PDF_DA
If Dir$(sFileName) <> "" Then
If MsgBox("Die Datei '" & sFileName & "' ist schon vorhanden!" & vbLf & vbLf _
& "Überschreiben?", vbYesNo Or vbQuestion, "PDF erzeugen") = vbNo Then Exit Sub
End If
If bCheck Then
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Header info").Select
On Error GoTo 0
End If
End Sub
Viele Grüße und Danke vorab
Andy
|