Office: VBA - automatischer Name für Tabellenblattkopie

Hallo -

Ich habe ein Makro, das von einem Tabellenblatt eine Kopie erstellt, mit Werten statt Formeln.

Code:

Sub Kopie()
Dim Frage As Integer
Frage = MsgBox("Soll dieses Blatt kopiert werden?", vbYesNo + vbQuestion, "Arbeitsblatt kopieren...")
If Frage <> 6 Then Exit Sub
    Application.ScreenUpdating = False
    Sheets("Lfd. Mt. Abr.").Copy Before:=Sheets("Lfd. Mt. Abr.")
    Range("A1:F34").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Das Blatt heißt immer "Lfd. Mt. Abr." und die Kopie "Lfd. Mt. Abr. (2)" (Laufender Monat - Abrechnung).

In A3 steht immer ein Datum, z. B. "1. August 2007".

Nun möchte ich, daß mir Excel aus A3 einen neuen Namen für die Kopie bastelt, nämlich "August 2007" statt "Lfd. Mt. Abr. (2)".

Wie geht das?

 

Hallo!

Füge vor der Zeile "Application.ScreenUpdating = True" diese Zeile ein:

ActiveSheet.Name = "August 2007"

 

Sorry, das mit A3 hatte ich überlesen...

ActiveSheet.Name = Sheets("Lfd. Mt. Abr.").Range("A3")

 

Danke Schatzi -

Damit kriege ich als Name "01.08.2007". Ich wollte aber eigentlich "August 2007". Kann man da noch ein Format mit reinpacken?
Und ich kriege die Fehlermeldung "Index außerhalb des gültigen Bereichs".

Edit: Habe nichts geändert, aber wenn ich jetzt das Makro ausführe, passiert nichts mehr, außer der Fehlermeldung.
Edit 2: Das war Blödsinn, ich hatte die Änderung nicht gespeichert.
Edit 3: Mein Blatt wird umbenannt. Ich möchte aber eine Kopie. "Lfd. Mt. Abr." soll erhalten bleiben.

Nix verstehn....

 

Hallo!

Die Fehlermeldung kann ich mir (und dir) momentan nicht erklären.
Das mit dem Format habe ich (wahrscheinlich viel zu umständlich) gebastelt bekommen:

Code:

Sub Kopie()
Dim Frage As Integer
Dim FormatAlt
Frage = MsgBox("Soll dieses Blatt kopiert werden?", vbYesNo + vbQuestion, "Arbeitsblatt kopieren...")
If Frage <> 6 Then Exit Sub
    Application.ScreenUpdating = False
    Sheets("Lfd. Mt. Abr.").Copy Before:=Sheets("Lfd. Mt. Abr.")
    Range("A1:F34").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("A1").Select
    FormatAlt = Sheets("Lfd. Mt. Abr.").Range("A3").NumberFormat
    Sheets("Lfd. Mt. Abr.").Range("A3").NumberFormat = "MMMM YYYY"
    ActiveSheet.Name = Sheets("Lfd. Mt. Abr.").Range("A3").Text
    Sheets("Lfd. Mt. Abr.").Range("A3").NumberFormat = FormatAlt
    Application.ScreenUpdating = True
End Sub

 

Hallo Schatzi -

Vielen Dank, jetzt ist es besser.
An der "Index..."-Fehlermeldung war ich selber schuld, ich hatte am Kopierbefehl was geändert.

Das einzige, was jetzt noch ist (aber ruhig so bleiben kann): Wenn ich das Makro wiederhole, ohne das neue Blatt "August 2007" vorher zu löschen, gibt Excel mir dieses:

(Aber wie gesagt, damit kann ich leben...)