Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Namensliste auf Blätter aufteilen

Namensliste auf Blätter aufteilen
22.04.2003 10:41:13
manas
Habe ein Tabellenblatt mit 50 Namen, möchte diese 50 Namen auf einzelne Tabellenblätter aufteilen, also jedes Tabellenblattregister hat einen Namen von der Hauptliste.
Wie geht das?
Danke manas


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Namensliste auf Blätter aufteilen
22.04.2003 11:07:05
ChrisL

Hallo Manas

Gehe davon aus, dass sich die 50 Namen in Spalte A1:A50 befinden.

Dim i As Integer, ii As Integer
Dim BlattExistiert As Boolean
On Error Resume Next

For i = 1 To Range("A65536").End(xlUp).Row
BlattExistiert = False

'Check ob Blatt bereits existiert
For ii = 1 To Sheets.Count
If Sheets(ii).Name = Cells(i, 1) Then
BlattExistiert = True
Exit For
End If
Next ii

'Blatt hinzufügen und benennen
If BlattExistiert = False Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Cells(i, 1)
End If
Next i

Gruss
Chris

Anzeige
Re: Namensliste auf Blätter aufteilen
22.04.2003 11:08:39
Boris

Hi Manas,

deine Namensliste steht im Blatt "Tabelle1" in A1 bis A50.
Lass folgendes Makro laufen:

Eine Fehlerbehanldung (falls Blattname schon existiert) hab ich mir jetzt erstmal gespart.

Gruß Boris


Re: Namensliste auf Blätter aufteilen
22.04.2003 11:20:11
mans

Tausend Dank!
Manas

Re: Namensliste auf Blätter aufteilen
22.04.2003 11:20:50
manas

Toll, danke!
manas

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige