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

Tabellenblatt erstellen

Forumthread: Tabellenblatt erstellen

Tabellenblatt erstellen
26.07.2013 06:01:21
Walter
Guten Morgen Excelfreunde,
In Tabelle 1 habe ich in Spalte "B" 35 Namen stehen.
Kann man per Makro 35 Tabellenblätter erstellen?
Gruß
Walter

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt erstellen
26.07.2013 06:29:36
Matthias
Hallo Walter
Mal als Bsp.
Die Namen stehen in B1:B35
Es wird je ein neues TabellenBlatt erstellt und es
bekommt den Registerblattnamen aus den Zellen.
Jedes Blatt wird ans Ende des Registers gestellt.
Ich bin davon ausgegangen, das es jeden Namen nur 1x gibt
und zu Beginn nur ein Tabellenblatt gibt
Hier also ohne Fehlerroutine !
Option Explicit
Sub neueTabellen()
Dim x&
Application.ScreenUpdating = 0
For x = 1 To 35
Worksheets.Add.Name = Tabelle1.Cells(x, 2).Value
ActiveSheet.Move After:=Sheets(Sheets.Count)
Next
Application.ScreenUpdating = 1
End Sub
https://www.herber.de/bbs/user/86572.xls
Gruß Matthias

Anzeige
AW: Tabellenblatt erstellen
26.07.2013 13:04:15
Walter
Hallo Matthias,
Danke für die Hilfe,
Werde das Makro noch öfters brauchen!
Tausend mal Dank
und schönes Wochenende3wünscht
Rentner Walter

Beliebteste Forumthreads (12 Monate)

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