ich lasse ein Arbeitsblatt (die erste Seite) mit folgenden Code ausdrucken
Dim Bereich0 As Range
Dim Bereich1 As Range
Set Bereich0 = Range("B1,C1")
Set Bereich1 = Range("B1")
Bereich0.Font.ColorIndex = 2
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1
Bereich0.Font.ColorIndex = 1
Bereich1.Font.ColorIndex = 3
Set Bereich0 = Nothing
Set Bereich1 = Nothing
Ich möchte nun durch einen weiteren Button die Option haben, dies Arbeitsblatt mit gleichen Kriterien als PDF in einen Ordner abzuspeichern. Der Pfad ist im Arbeitsblatt "Daten", Zelle A5 angegeben.Kann mir bitte jemand entsprechenden Code bitte schreiben?
Mit freundlichen Gruß
Fred