habe folgenden Code bei mir ins Visual basic gehämmert aber beim ausführen den Makros kommt immer der Laufzeitfehler 1004. Kann mir jemand sagen warum?
Private Sub Button1_Click()
Range("A5:A100").Select
Selection.ClearContents
Dim strDatName
Range("A5") = Dir("\\lsg-fin\OPS ICS\Operations\2007\Aug\")
strDatName = Dir
Do Until strDatName = ""
Range("A100").End(xlUp).Offset(1, 0) = strDatName
strDatName = Dir
Loop
End Sub
best regards,
Ronny