Guten Morgen =)
ich habe gerade die Links für die Dateipfade in ein zusätzliches Tabellenblatt ausgelagert, statt sie fix im Code zu haben.
Hat bis auf eine Ausnahme funktioniert.
Hier kommt jetzt:
"Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs"
Hier noch der Code, wie gesagt die auskommentierte Variante mit dem Pfad funktioniert, die mit dem Zellbezug wo genau das gleiche (ohne ") drin steht nicht.
Seltsam wäre, wenn der String zu lang wäre, da beide ja exakt den gleichen Inhalt haben....
Vielen Dank für Rat, bin neugierig daraus zu lernen =)
'BackUp von Datenbank
Dim Pfad As String
Dim Dateiname As String
'Pfad = "Y:\3_Personen\Martin.Tutnichtzursache\Dokumente\TagesProgrammBackup\Datenbank\"
Pfad = Worksheets("Parameter").Cells(2, 12).Value
Dateiname = "Backup_" & Format(Date, "YYYYMMDD_") & Filename
If Dir(Pfad & Dateiname) = "" Then 'BackUp von diesem Tag nicht vorhanden
ActiveWorkbook.SaveCopyAs Pfad & Dateiname
Else
'MsgBox "Backup für diesen Tag bereits vorhanden"
End If