hab da eine Frage
und zwar wie man ein Prüfung einfügt ob die Datei die es zu speichern gilt, im Zielordner schon vorhanden ist.
Am besten natürlich über eine msgBox.
Wenn die Datei schon existiert soll diese aber nicht überschrieben werden können, sondern soll über eine nächste Box umbenannt werden können.
Hab euch meinen bisherigen Code kopiert.
Hoffe mir kann jemand helfen.
Vielen Dank im voraus
LG Andi
Sub Seite1_speichern()
' Seite1_speichern Makro
If MsgBox("Wollen sie die aktuelle Kalenderwoche wirklich übermitteln?", vbYesNo + vbQuestion, " _
Achtung") = vbYes Then
' speichert Tabelle unter Pfad und vorgegebenen Namen als pdf
ChDir "D:\Daten\Test"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Daten\Test\" & Range("D5") & "_KW" & Range("AQ2") & "_" & Range("G5"), Quality:= _
xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, From:=1, To:=3, OpenAfterPublish:=True
' Erzeugt einen Übermittelt Stempel
ActiveSheet.Unprotect Password:="Alina1711"
Range("J33:O34").Select
ActiveCell.FormulaR1C1 = "Übermittelt"
Range("J33:O34").Select
With Selection.Interior
.Pattern = xlGray25
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B25").Select
ActiveSheet.Protect Password:="Alina1711"
End If
End Sub