|
Guten Abend zusammen :)
ich habe folgendes Problem/Anliegen:
Ich habe eine Excel-Datei in der ein best. Blatt als PDF abgespeichert und benannt werden soll, siehe Code:
Sub aktivesBlattToPdf()
Dim strDatei As String, strPfad As String
strPfad = "C:\Users\...." & "\"
strDatei = Range("C32").Value & ".pdf"
If Dir(strPfad & strDatei) = strDatei Then
MsgBox "Die Datei " & strDatei & " existiert schon!"
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPfad & strDatei, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
End Sub
Ich möchte allerdings, dass dieses Makro als erstes kontrolliert, ob in einem anderen Blatt in einer bestimmten Zelle ein Wert steht, falls nein, dieses Makro ganz normal durchläuft und der Name der PDF in diese Zelle geschrieben wird, falls ja, das Makro in die Zelle darunter springt und dort normal abgespielt wird.
Bei Verständnisfragen bitte nachhaken :)
Vielen Dank
LG
Fabian
|