Supportnet / Forum / Tabellenkalkulation
Name des Tabellenblatts mit einem Makro ändern
Frage
Hallo Zusammen,
ich habe mehrere Excel-Dateien in einem Ordner, welche alle ein(!) Tabellenblatt mit verschiedenen Namen enthalten.
Wie kann ich mit einem makro erreichen, dass alle Tabellenblätter in den verschiedenen Dateien in den selben Namen ("Tabelle1") umbenannt werden?
Über eine Lösung würde ich mich sehr freuen!
Antwort 1 von Saarbauer
Hallo,
ein Makro mit derm du alle Dateinamen in einem Verzeichnis in die Exceltabelle einlist.
Sub DateinamenAuflisten()
Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\temp\txt\*.*") ´Hier Verzeichnis und Datei angeben
Sheets("Liste").Activate
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
Im einem Weiteren Makro die Dateien offnen und folgende Zeile
Sheets("Tabelle1").Name = Name des Blattes
Gruß
Helmut
ein Makro mit derm du alle Dateinamen in einem Verzeichnis in die Exceltabelle einlist.
Sub DateinamenAuflisten()
Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\temp\txt\*.*") ´Hier Verzeichnis und Datei angeben
Sheets("Liste").Activate
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
Im einem Weiteren Makro die Dateien offnen und folgende Zeile
Sheets("Tabelle1").Name = Name des Blattes
Gruß
Helmut