kann mir jemand sagen, wo mein Fehler im unteren Makro steckt.
Bei mir hört das Makro nach dem Kopieren auf. Der Wechsel zum "PfadName" findet nicht mehr statt. Hinter PfadName verbirgt sich der derzeit gültige Dateiname. Wird der Name geändert, passt sich der Name automatisch an (nicht jedoch das Makro, so dass hier eine Variable eingegeben werden muss).
Gebe ich den fixen Dateinamen an (windows ("Zusammenfassung.xls")), dann funktioniert das Makro.
Der Fehler muss als bei der Definition des "PfadName" liegen. Ich weiss nur nicht, wie ich den Pfad umbenennen muss.
Sub zusammenfassen()
Sheets("Daten").Unprotect
Sheets("Daten").Select
Cells(48, 2) = ActiveWorkbook.Path
Cells(48, 9) = ActiveWorkbook.Name
Sheets("Daten").Protect
Sheets("Daten").Select
Pfad = Range("B54")
PfadName = Range("I47")
On Error Resume Next
Workbooks.Open (Pfad)
For Each ws In Workbooks
If ws.Name = Tabelle11.Range("A54") Then
Range("A1:AF199").Copy
PfadName = Range("I48")
Windows(PfadName).Select
Tabelle8.Select
Range("B1").Select
ActiveSheet.Paste
Windows(PfadName).Activate
Sheets("Daten").Select
Pfad = Range("B54")
Workbooks.Open (Pfad)
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
Next ws
End Sub
Gruß
Uwe