PDA

Vollständige Version anzeigen : Frage: Tabellenblatt umbenennen und Datei speichern über Dialog


Madmaxx
14.01.2014, 16:03
Hallo Excelprofis,

ich habe eine Frage.
Ich möchte ein Tabellenblatt (Name z.B.: "Quelle") als excel Datei (Name z. B.: "bla.xls") speichern.

In der erstellten Datei: bla.xls befindet sich also ein Tabellenblatt mit dem Namen: "Quelle".

Wie kann ich in einem Abwasch des Tabellenblatt auch umbenennen?

Es soll z.B. der Tabellenblattname in der Datei "bla.xls" das aktuelle Datum Format(Now, "YYYYMMDD") erzeugt werden.

Vielen Dank!

aloys78
14.01.2014, 18:47
Hallo Max,

mein Vorschlag:
Dim t As Long
Dim dName As Variant
Workbooks.Add
ThisWorkbook.Sheets("Quelle").Copy Before:=ActiveWorkbook.Sheets(1)
dName = Format(Now, "DDMMYYYY")
ActiveSheet.Name = dName
With ActiveWorkbook
Application.DisplayAlerts = False
For t = .Sheets.Count To 1 Step -1
If Sheets(t).Name <> dName Then .Sheets(t).Delete
Next t
Application.DisplayAlerts = True
End With
Application.Dialogs(xlDialogSaveAs).Show ("bla")


Gruß
Aloys

Madmaxx
14.01.2014, 23:14
Vielen Dank!

Werde ich morgen mir anschauen.

Gruß