Makro auf mehrere Excel Dateien durchführen

Question

Hallo,

und zwar will ich folgendes Makro auf mehrere Excel Dateien ausführen.

Sub Befehl()
'
' Befehl Makro
' Löschung Zeilen 1-8, Spalte 1 auftrennen
'
' Tastenkombination: Strg+Umschalt+H
'
Rows("1:8").Select
Range("A8").Activate
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)), _
TrailingMinusNumbers:=True
End Sub

Ich habe ca. 20 Ordner mit jeweils 20 Excel Files. Wäre toll, wenn ich das gleichzeitig auf die ganzen Excel Files anweden könnte, anstatt immer jedes einzelne zu öffnen und die Tasten Kombi zu drücken.

Wichtig: Es soll noch im Makro Befehl drin stehen, dass er die .xls als .csv abspeichern soll, nach den Schritten. Und zwar der gleiche Dateiname wie die .xls nur als .csv. Geht das?

Answer 1

Hallo,

prinzipiell geht viel mit VBA ;-).

Aber da du nicht mehr Infos gibst, wird dir hier keiner helfen können.
Sollen z.B. immer wieder die selben Dateien in den selben Ordnern bearbeitet werden? Gibt es in den Exceldateien nur ein Arbeitsblatt oder mehrere (falls es mehrere gibt, welches Arbeitsblatt soll bearbeitet werden)?

Gruß

M.O.