Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter automatisch Name zuweisen

Forumthread: Tabellenblätter automatisch Name zuweisen

Tabellenblätter automatisch Name zuweisen
27.09.2004 04:06:17
Explizit
Hallo,
ich habe mit mittels
Blattanzahl = InputBox("Anzahl der zusätzlichen Blättter eingeben")

For x = 1 To Blattanzahl

Sheets("1").Select
Sheets("1").Copy after:=Sheets(2)

Next x
eine autmatische generierung der gewünschten zusätzlichen Blätter erstellt
nun wollte ich aber das diese automatisch mit fortlaufenden Zahlen z.Bsp. 1,2,3,4, etc. benannt werden. Bitte helft mir.
Gruß Mike
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter automatisch Name zuweisen
27.09.2004 05:57:56
Hajo_Zi
Hallo Mike,
mal ohne Fehlerbehandlung
For X = 1 To Blattanzahl
Sheets("1").Select
Sheets("1").Copy after:=Sheets(2)
ActiveSheet.Name = X
Next X
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro SP2 und Excel Version 2003 SP1.


Anzeige
AW: Tabellenblätter automatisch Name zuweisen
27.09.2004 22:31:58
Explizit
Danke für euere Antworten
beide Sachen haben mir ein wenig geholfen wobei ich lieber mit dem Tipp von der FAQ arbeiten wollte. @Hajo "immer her mit der Fehlerbeschreibung".
Nun eine Sache noch ich habe in meiner Tabelle schon 2 Arbeitsblätter das erste heißt "Deckblatt" und das zweite einfach nur "2" ohne die Füße. Nun hätte ich gerne per Abfrage wieviel Blätter noch hinzu gefügt werden sollen. Und diese sollte dann fortlfd. nach der 2 nummeriert sein. Ich bin voll der Laie und komme selbst mit den Tipps hier nicht weiter. Daher meine Bitte an euch mir zu helfen.
Greetz Mike
Anzeige
AW: Tabellenblätter automatisch Name zuweisen
27.09.2004 23:09:22
Explizit
Danke für euere Antworten
beide Sachen haben mir ein wenig geholfen wobei ich lieber mit dem Tipp von der FAQ arbeiten wollte. @Hajo "immer her mit der Fehlerbeschreibung".
Nun eine Sache noch ich habe in meiner Tabelle schon 2 Arbeitsblätter das erste heißt "Deckblatt" und das zweite einfach nur "2" ohne die Füße. Nun hätte ich gerne per Abfrage wieviel Blätter noch hinzu gefügt werden sollen. Und diese sollte dann fortlfd. nach der 2 nummeriert sein. Ich bin voll der Laie und komme selbst mit den Tipps hier nicht weiter. Daher meine Bitte an euch mir zu helfen.
Greetz Mike
Anzeige
AW: Tb. automatisch einfügen und Name zuweisen
28.09.2004 11:02:39
Matthias
Versuchsmal damit es wird allesdings ein blatt als Kopier vorlage vorraus gesetzt bei mir war es Page_1

Sub cmd_Blätter_einfügen()
Dim iCounter As Integer
Dim iCount As Integer
Application.ScreenUpdating = False
For iCounter = 1 To 40        'Anzahl der gewünschten blätter
iCount = Worksheets.Count
Worksheets(iCount).Visible = True
Worksheets(iCount).Copy after:=Worksheets(iCount)
ActiveSheet.Name = "Page_" & iCounter + 1    'Name des zu Kopierenden Blatten+1
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName)
.Properties("_CodeName").Value = ActiveSheet.Name
End With
Next iCounter
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub

hoffe konnte dir helfen
mfg Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige