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?