habe mal ein Problem wo ich nicht weiterkomme falls es überhaupt eine Lösung gibt .?
UNd zwar habe ich in einem Verzeichniss einen Ordner unter diesem Ordner sind noch ein paar andere Ordner verschachtelt. jetzt soll das Makro die dateien suchen ab einem Verzeichniss die so heißen ! "testname.xls" dann soll er mit jeder datei die er mit dem namen findet folgendes Makro ausführen das ich mit der VBA aufzeichnung erstellt habe.
Sub neutest()
Range("L7").Select
Sheets("Diagramm und Werte Auto.").Select
Sheets("Diagramm und Werte Auto.").Copy Before:=Sheets(2)
ActiveSheet.ChartObjects("Diagramm 16").Activate
ActiveChart.SeriesCollection(2).Select
Selection.Delete
ActiveWindow.Visible = False
Windows("Rz Sitz.xls").Activate
ActiveSheet.ChartObjects("Diagramm 17").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SeriesCollection(2).Select
Selection.Delete
ActiveWindow.Visible = False
Windows("Rz Sitz.xls").Activate
ActiveSheet.ChartObjects("Diagramm 16").Activate
ActiveChart.SeriesCollection(1).Select
Selection.Delete
ActiveWindow.Visible = False
Windows("Rz Sitz.xls").Activate
ActiveSheet.ChartObjects("Diagramm 17").Activate
ActiveChart.SeriesCollection(1).Select
Selection.Delete
Windows("Rz Sitz.xls").ScrollRow = 6
ActiveWindow.Visible = False
Windows("Rz Sitz.xls").Activate
ActiveSheet.ChartObjects("Diagramm 18").Activate
ActiveChart.SeriesCollection(2).Select
Selection.Delete
ActiveChart.SeriesCollection(1).Select
Selection.Delete
Windows("Rz Sitz.xls").ScrollRow = 1
ActiveWindow.Visible = False
Windows("Rz Sitz.xls").Activate
Range("AC7").Select
ActiveCell.FormulaR1C1 = "0 / 1,8"
Range("B5:Z12").Select
Selection.ClearContents
Range("AC1").Select
ActiveCell.FormulaR1C1 = "FEA7/FEG7.1M"
Range("AC2").Select
Sheets("Diagramm und Werte Auto. (2)").Select
Sheets("Diagramm und Werte Auto. (2)").Name = "neue Toleranzen ab 09 _02"
Range("B35:Z35").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-27
Range("B6").Select
End Sub
Das Makro ändert die Datei ab weil neue Toleranzen vorhanden sind !
Würde mich sehr freuen wenn ihr mir helfen könntet und es da eine Lösung gibt !! Danke Chris