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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen