Makro automatisch auf mehrere Dateien!
JUZ
ich habe ein Problem und noch dazu sogut wie keine Kenntnisse mit VBA.
Ich möchte einige viele Excel Dateien bearbeiten (alle in einem Ordner) und anschließend in einer Datein zusammenfügen. Die Bearbeitung der einzelnen Datein habe ich bereits hinbekommen (Spalte einfügen - Bezeichnung aus dem Dateiname ziehen und das ganze kopieren und in die entsprechende neue Datei einfügen). Da ich jedoch nicht jede Datei einzeln öffen möchte suche ich nun nach einer Möglichkeit, das ganze Automatisch ablaufen zu lassen.
Ich hoffe ihr könnt mir helfen!
Mit dem was ich bislang hier und über Google gefunden habe bin ich nicht weiter gekommen, da ich bislang noch nie mit VBA gearbeitet habe!
Danke!!!
Das habe ich bis jetzt hinbekommen:
Sub
ActiveSheet.Select
Range(Selection, Cells(1)).Select
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
ActiveCell.FormulaR1C1 = "Forecastdatum"
Range("A2").Select
ActiveCell.FormulaR1C1 = _
"=MID(CELL(""Dateiname""),FIND(""]"",CELL(""Dateiname""))-14,10)"
Range("B2").Select
Range("B65536").End(xlUp).Select
ActiveCell.Offset(0, -1).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Range("A2:AB2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Konsolidierte Datei.XLS").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub
Anzeige