Hallo
ich habe hier ein makro was auch sehr gut läuft,aber eine sache
müßte ich geänder habe wo ich nicht weiß wie :(
der Datei name steht ab A5:A jetzt sucht er mir die werte die ich aus
den datein haben möchte und trägt sie mir in E5:E ein.
aber teilweise sind die datein nicht vorhanden oder sind anders
geschrieben unnd wenn er sie nicht findet öffnet er den explorer wo
ich dann selber nach der datei
suchen kann.
und das möchte ich umgehen,er soll die daatei einfach
überspringen und die nächste suchen.
Sub DateienLesen()
ActiveSheet.Unprotect "Test"
Application.StatusBar = "Vorbereitung läuft, einen Moment Geduld
bitte "
Worksheets.Application.ScreenUpdating = False
Dim ZellPos As Range
For Each ZellPos In Range("A5:A" &
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
If Range("A" & ZellPos.Row).Value <> 0 Then Range("E" &
ZellPos.Row) = ExecuteExcel4Macro("'C:\Test\Mappe\" & "[" &
ZellPos & ".xlsm]Test" & "'!" & Range("D66").Address(, , xlR66C4))
Next ZellPos
Worksheets.Application.ScreenUpdating = True
Application.StatusBar = False
ActiveSheet.Protect "Test"
End Sub
Danke schon mal für eure Hillfe !!!!!!!!!!!!!!!!!!!!!!!!