Tabellenblatt kopieren; umbennen, fortlaufend nummerieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Tabellenblatt kopieren; umbennen, fortlaufend nummerieren

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

Autor

Nachricht

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 107
Wohnort: 67742 Lauterecken

Verfasst am: 11.04.2008, 13:24

Hallo,
bräuchte zu unten aufgeführter Formel Eure Hilfe. Kann man diese Formel evtl. kürzen ohne deren Ablauf zu ändern.
Wie schaffe ich es, dass sich jedes neu erzeugte Tabellenblatt ( Kopie von 2008-Muster ) neu benennt und dies fortlaufend ( z.B.: 2008-001; 2008-002; 2008-003;).

Vielen Dank!

Private Sub CommandButton2_Click()
'
' Makro1 Makro
' Neuen Kunden anlegen und vorbereiten
'

'
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("2008-Muster").Select
Sheets("2008-Muster").Copy Before:=Sheets(13)
ActiveSheet.Shapes("Text Box 6").Select
Selection.Characters.Text = "" & Chr(10) & "Muster"
With Selection.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=2, Length:=6).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 100
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Delete
End Sub

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 11.04.2008, 14:34

Hallo!

Den Namen eines Blatts weist du so zu:

ActiveSheet.Name = "irgendwas"

Da du noch eine Nummerierung einfügen möchtest, brauchst du einen (am besten im Quellblatt untergebrachten) Zähler, den du am Anfang des Makros erhöhst, z.B.

Sheets("2008-Muster").Range("Z100") = Sheets("2008-Muster").Range("Z100") + 1

Der Blattname entsteht dann durch

ActiveSheet.Name = "2008-Muster-" & Sheets("2008-Muster").Range("Z100")

_________________

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!

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 107
Wohnort: 67742 Lauterecken

Verfasst am: 11.04.2008, 22:09

Habe Deine Nachricht ausprobiert - und siehe da -es klappt nicht!
Nun ja, bin ja kein Excelaner, hatte mir diese Grund-Formel mit dem Makrorekorder erstellt. Könntest Du mir diese Formel kompl. zusammenstellen. Meine Nummerierung im Quellblatt steht auf "E26" und lautet: 2008-000. An dieser Zahl sollte sich jedes weitere neue Blatt orientieren. ( 2008-001; 2008-002 usw. )
Gruß timi

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 11.04.2008, 23:01

Hallo!

Schau dir mal den Anhang an.
Kommst du damit weiter?

timi.xls

Beschreibung:

Download

Dateiname:

timi.xls

Dateigröße:

24.5 KB

Heruntergeladen:

36 mal

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 107
Wohnort: 67742 Lauterecken

Verfasst am: 12.04.2008, 16:26

Alles Bestens, vielen Dank!

Musste die Formel ein wenig anpassen, da sich der CommandButton nicht auf der zu kopierenden Seite befindet, sondern auf der Startseite.
Funktioniert tadellos, P E R F E K T!
Viele Grüße Timi

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
	Daten als Farbanzeige in ein anders T...	Silverraider	Microsoft Excel Hilfe	0	07.01.2009, 18:31
	Spaltenhöhen mit in anderes Tabellen...	TOMMY	Microsoft Excel Hilfe	2	03.01.2009, 21:12
	VBA: Kopieren von Tabellenblättern in...	rene_koeln	Microsoft Excel Hilfe	15	15.12.2008, 15:01
	Zeilen kopieren und mit Leerzeilen ei...	Century147	Microsoft Excel Hilfe	8	11.12.2008, 14:52
	Mehrere Filter in einem tabellenblatt	mkay	Microsoft Excel Hilfe	2	10.12.2008, 11:35

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