Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellenblätter aus Zelleinhalt erstellen

Tabellenblätter aus Zelleinhalt erstellen
26.11.2007 14:05:36
Michael
Hallo,
ich möchte gerne aus einer Tabelle "RawData", in der in der Spalte 2 (ab Zeile 2), eine wechselnde Anzahl von Bezeichungen für einzelne Blätter stehen, automatisch Tabellenblätter erzeugen lassen.
wenn ich das ganze mit
For Each Zeile In Range(Cells(2, 2), Cells(a - 1, 2))
Worksheets.Add
ActiveSheet.Name = Zelle.Value
Next Zeile
mache mekert Excel natürlich das Tabellenblätter doppelt (in dieser Tabelle kommen leider die Daten imm er doppelt vor) vorkommen und bricht ab.
Wie kann ich das besser lösen?

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter aus Zelleinhalt erstellen
26.11.2007 14:14:13
Rudi
Hallo,

Sub tt()
Dim Zeile As Range
For Each Zeile In Range(Cells(2, 2), Cells(a - 1, 2))
If WorksheetFunction.CountIf _
(Range(Cells(2, 2), Cells(Zeile.Row, 2)), Zeile.Value) = 1 Then
Worksheets.Add
ActiveSheet.Name = Zelle.Value
End If
Next Zeile
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Tabellenblätter aus Zelleinhalt erstellen
26.11.2007 15:08:43
Michael
Funktioniert leider nicht so ganz, das bricht beim erstellen (ActiveSheet.Name = Zelle.Value) mit einem Fehler ("Objekt erforderlich") ab. der vollständigkeit halber stelle cih mal das ganze Makro hier rein, vielleicht habe ich ja etwas vergessen:

Sub blätter_erstellen()
Dim Zeile As Range
Dim Blatt As Worksheet
Dim a As Long
Sheets("RawData").Activate
Set Blatt = Worksheets("RawData")
a = WorksheetFunction.CountA(Blatt.Columns(2))
For Each Zeile In Range(Cells(2, 2), Cells(a - 1, 2))
If WorksheetFunction.CountIf _
(Range(Cells(2, 2), Cells(Zeile.Row, 2)), Zeile.Value) = 1 Then
Worksheets.Add
ActiveSheet.Name = Zelle.Value
End If
Next Zeile
End Sub


Anzeige
AW: Tabellenblätter aus Zelleinhalt erstellen
26.11.2007 15:16:25
Rudi
Hallo,
es muss ja auch Zeile.Value heißen
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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