Sheetnamen mit Liste vergleichen + PDF
02.02.2022 09:12:57
Björn
Ist es möglich und wenn ja wie, das vorhanden sein eines Sheets an Hand einer Liste abzufragen?
Beispiel: Es gibt die Liste (A,B,C,D,E) Real werden es mindestens 30 Einträge sein.
Und die Sheets A C D nun sollte mir nach Betätigung eines Buttons eine MSG-Box erscheinen, die mir aus gibt B fehlt oder wenn möglich B und D fehlt.
Wenn dann alle Einträge gemacht worden sind, wäre ein zwei Button gut, der dafür sorgt, dass das die Sheets von der Liste als PDf exportiert werden.
Der untere Code sollte eine Zelle für den Namen auslesen und das PDF einem bestimmten Ort ablegen.
Sub SaveAsPDF()
Dim fName As String
With ActiveSheet
fName = .Range("A1").Value &"Ausdruck"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\My Documents\" & fName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub