Datein überprüfen (VBA)
27.02.2020 11:24:56
Herbert
ich wollte machen das beim Speichern geguckt wird ob die jeweilige Datei schon existiert, aber es wird die ganze Zeit gesagt die Datei existiert nicht und Excel überschreibt die Datei einfach ohne zu fragen.
Hier der Code den ich versucht habe zu benutzen...:
Public Function DateiExistiert(ByVal Dateipfad As Variant) As Boolean
On Error Resume Next
DateiExistiert = CreateObject("Scripting.FileSystemObject").FileExists(Sheets("Einstellungen" _
).Range("D6").Value & Sheets("Achsbild").Range("U1").Value)
End Function
Sub Datein_überprüfen()
Dim strPfad As String
strPfad = Sheets("Einstellungen").Range("D6").Value & Sheets("Achsbild").Range("U1").Value
If DateiExistiert(strPfad) Then
MsgBox "Die Datei existiert schon."
Sheets("Einstellungen").Range("A5").Value = "NEIN"
Else
MsgBox "Die Datei existiert nicht."
Sheets("Einstellungen").Range("A5").Value = "OK"
End If
End Sub Vielen Dank im Voraus,
LG Herbert!