Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellerblätter erstellen

Forumthread: Tabellerblätter erstellen

Tabellerblätter erstellen
24.01.2019 09:57:49
Walter
Guten Morgen
In einer Datei Blatt 1 habe ich 12 Monatsnamen stehen
Nun möchte ich per VBA 12 Blätter mit den Namen erstellen.
Bitte um Hilfe.
Gruß Walter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
und in welchen Zellen...
24.01.2019 10:08:10
Werner
Hallo Walter,
...stehen deine Monatsnamen? Excel hat da nämlich ein paar davon.
Gruß Werner
AW: Tabellerblätter erstellen
24.01.2019 10:26:34
Werner
Hall Walter,
hier mal ein Beispielcode. Deine "Monatsnamen" stehen in Tabelle1 im Bereich von A1 bis A12 
Public Sub Monate_Erstellen()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To 12
Worksheets.Add after:=Worksheets(Sheets.Count)
ActiveSheet.Name = Worksheets("Tabelle1").Cells(i, 1)
Next i
End Sub
Der Code ist ohne Fehlerbehandlung. Wenn es die Monatsblätter schon gibt, dann läuft der Code in einen Fehler.
Gruß Werner
Anzeige
AW: Tabellerblätter erstellen
24.01.2019 10:36:55
Walter
Hallo Werner
Herzlichen Dank
Es klappt genau wie Vorgestellt.
Danke
Gruß Walter
Warum dann offen?
24.01.2019 12:00:00
Torsten
Gerne u. Danke für die Rückmeldung. o.w.T.
24.01.2019 16:00:56
Werner
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige