|
Hallo Karl-Heinz,
ich habe es. Vielleicht nicht elegant aber geht :-)
If Dir$(sFileName) <> "" Then
If MsgBox("Die Datei '" & sFileName & "' ist schon vorhanden!" & vbLf & vbLf _
& "Überschreiben?", vbYesNo Or vbQuestion, "PDF erzeugen") = vbNo Then GoTo Weiter: 'Exit Sub
End If
'If bCheck Then
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Weiter:
Sheets("Header info").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
On Error Resume Next
Damit zwinge ich den Code die Seite erneut zu aktivieren und alles ist gut ...
Vielen Dank für Deine Hilfe. Habe wieder was gelernt.
Viele Grüße Andy
|