Laufzeitfehler 1004
03.10.2013 15:35:49
Thomas
Vielen Dank an Rudi und Franz für die schnelle Antwort auf meine Frage vom 23.09.!!!! Ich war leider zwischendurch mit anderen Dingen beschäftigt und konnte mich erst heute wieder dem widmen:
Leider läuft folgendes Makro nicht - die Fehlermeldung Laufzeitfehler 1004 erscheint beim Durchlaufen lassen?
Hat jemand von Euch eine "begründeten Verdacht" auf die Ursache?
Danke schon jetzt!
Thomas
Sub MonatsZusammenfassung()
Dim strOrdner As String, strTagZusFass As String
Dim lngZeile As Long
Dim wksMonatZusFass As Worksheet
Dim strTagDatei As String
Dim wkbTag As Workbook, wksTAF As Worksheet
Set wksMonatZusFass = ActiveSheet 'Zieltabelle
With wksMonatZusFass
strTagZusFass = .Range("B5").Text
strOrdner = .Range("B6").Text
'Zeilen in SPlate A ab Zeile 10 abarbeiten
For Zeile = 10 To .Cells(.Rows.Count, 1).End(xlUp).Row
'Prüfen, ob leer
If .Cells(lngZeile, 1) = "" Then Exit For
'Eintrag in Spalte A
strTagDatei = .Cells(lngZeile, 1).Text
'Prüfen, ob Datei vorhanden
If Dir(strPfad & Application.PathSeparator & strTagDatei) "" Then
'Datei schreibgeschützt öffnen
Set wkbTag = Application.Workbooks.Open(Filename:=strPfad & Application.PathSeparator & _
_
strTagDatei, ReadOnly:=True)
Set wksTAF = wkbTag.Worksheets("TAF")
'Daten nach Ziel kopieren
wksTAF.Range("C3").Copy Destination:=.Cells(lngZeile, 2)
'Tages-Datei wieder schliessen
wkbTag.Close savechanges:=False
End If
Next
End With
End Sub
Anzeige