Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro automatisch auf mehrere Dateien!

Makro automatisch auf mehrere Dateien!
JUZ
Hallo an alle VBA ler,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Daten automatisch aus mehreren Dateien einlesen
29.08.2011 23:01:37
fcs
Hallo JUZ,
hier mal eine Beispiel-Datei mit der du den Ablauf steuern kannst.
Ich hab versucht dein Makro von den Funktionen her zu integrieren. Der Einfachheit halber werden die Daten jedoch in eine neue Datei übertragen. Du du zum Schluss im angezeigten Dialog speichern kannst.
Gruß
Franz
https://www.herber.de/bbs/user/76384.xls
Anzeige

148 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige