Code Fehler
Einzel
habe diesen Code, der hatte auch erst funktioniert. Nun funktioniert er nicht mehr.
Fehler:
Fehler beim Kompilieren:
Falsche Anzahl an Argumenten oder ungültiege Zuweisung zu einer Eigenschaft.
Sub FileDateTime()
Dim i As Long
Application.ScreenUpdating = False
With ActiveSheet
For i = 1 To .Cells(Rows.Count, 3).End(xlUp).Row
On Error Resume Next
.Range("A" & i) = FileDateTime(.Range("B1") & .Range("C" & i))
If Err.Number 0 Then .Range("A" & i) = "Datei nicht gefunden"
On Error GoTo 0
Next
End With
Application.ScreenUpdating = True
End Sub
Das verstehe ich nicht, habe nämlich nichts geändert?
MfG
Stephan
Anzeige