es ist schon komisch, den Speicherort direkt in die Root eines Laufwerkes zu legen und auch ohne \ zu arbeiten
Hier mal eine Lösung.
Code:
Sub datum()
Dim Pfad As String, Z1 As Integer, SpQ As Integer, SpZ As Integer, i As Integer, LR As Integer
SpQ = 10 'Spalte J
SpZ = 6 'Spalte F
Z1 = 2 ' Erste Datenspalte
LR = Cells(Rows.Count, SpQ).End(xlUp).Row 'letzte Zeile der Spalte
For i = Z1 To LR
Pfad = Replace(Cells(i, SpQ), ": ", ":\")
If Dir(Pfad) <> "" Then
Cells(i, SpZ) = Format(FileDateTime(Pfad), "DD.MM.YYYY")
Else
Cells(i, SpZ) = "nicht da"
End If
Next
End Sub
Der Doppelpunkt plus Leerzeichen wechsle ich in :\
LG UweD
Folgende(r) 1 Nutzer sagt Danke an UweD für diesen Beitrag:1 Nutzer sagt Danke an UweD für diesen Beitrag 28 • Oomtraa