Du hast mir mal ein Makro gebastelt und gesagt das es auch unter 97 fuzt, leider tut es das nicht, es fuzt nur unter 2000, vielleicht haste noch ne Idee, Code:
danke schonmal
Steffen
Du hast mir mal ein Makro gebastelt und gesagt das es auch unter 97 fuzt, leider tut es das nicht, es fuzt nur unter 2000, vielleicht haste noch ne Idee, Code:
danke schonmal
Steffen
Sub DateiEinlesen()
'On Error GoTo ERRORHANDLER
Dim iCounter As Integer
With Application.FileSearch
.LookIn = Cells(ActiveCell.Row - 1, ActiveCell.Column).Value
.Filename = "*." & Cells(ActiveCell.Row - 1, ActiveCell.Column + 1).Value
.Execute
For iCounter = 1 To .FoundFiles.Count
Cells(iCounter + 7, ActiveCell.Column).Value = Dir(.FoundFiles(iCounter))
Next iCounter
End With
'ERRORHANDLER:
End Sub
folgender Fehler bei Zeile:
.Filename = "*." & Cells(ActiveCell.Row - 1, ActiveCell.Column + 1).Value
Unzuläßiger Prozeduraufruf oder ungültiges Argment
Das ganze fuzt unter 2000 super, aber ich brauch es halt unter 97, bitte helft mir
Danke
Steffen
Danke nochmal
Steffen