VBA - automatischer Name für Tabellenblattkopie :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

VBA - automatischer Name für Tabellenblattkopie

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Krino
Schlauberger

Anmeldedatum: 15.04.2007
Beiträge: 1734

Verfasst am: 27.08.2007, 12:32

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?

_________________
Liebe Grüße
Krino
Win XP Home 2002 SP 3
Office Small Business 2002 SP 3

Zuletzt bearbeitet von Krino am 27.08.2007, 13:52, insgesamt einmal bearbeitet

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 27.08.2007, 12:54

Hallo!

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

ActiveSheet.Name = "August 2007"

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 27.08.2007, 12:56

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

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

Krino
Schlauberger

Anmeldedatum: 15.04.2007
Beiträge: 1734

Verfasst am: 27.08.2007, 13:03

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....

_________________
Liebe Grüße
Krino
Win XP Home 2002 SP 3
Office Small Business 2002 SP 3

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 27.08.2007, 13:32

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

Krino
Schlauberger

Anmeldedatum: 15.04.2007
Beiträge: 1734

Verfasst am: 27.08.2007, 13:48

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...)

400.jpg

Beschreibung:

Dateigröße:

7.51 KB

Angeschaut:

147 mal

_________________
Liebe Grüße
Krino
Win XP Home 2002 SP 3
Office Small Business 2002 SP 3

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	automatischer Mailversand	anfaenger	Microsoft Access Hilfe	0	19.08.2008, 10:07
	per Button automatischer druck mehrer...	matze54321	Microsoft Excel Hilfe	7	11.06.2008, 10:42
	Ausnahmeregelungen bei automatischer ...	Igeltanrek	Microsoft Word Hilfe	2	02.06.2008, 21:45
	Dropdownfeld mit automatischer Worter...	Mot	Microsoft Excel Hilfe	3	17.03.2008, 18:32
	Automatischer Such- Button in Excel T...	ManuS	Microsoft Excel Hilfe	4	17.11.2007, 12:04

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de