Namensliste auf Blätter aufteilen

Bewerten Sie hier bitte das Excel-Portal

Auftragsprogrammierung: Nehmen Sie hier Kontakt auf

Namensliste auf Blätter aufteilen

Namensliste auf Blätter aufteilen von manas vom 22.04.2003 - 10:41:13
- Re: Namensliste auf Blätter aufteilen von Boris vom 22.04.2003 - 11:08:39
- Re: Namensliste auf Blätter aufteilen von ChrisL vom 22.04.2003 - 11:07:05

Betrifft: Namensliste auf Blätter aufteilen
von: manas
Geschrieben am: 22.04.2003 - 10:41:13

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

Re: Namensliste auf Blätter aufteilen
von: ChrisL
Geschrieben am: 22.04.2003 - 11:07:05

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

Re: Namensliste auf Blätter aufteilen
von: Boris
Geschrieben am: 22.04.2003 - 11:08:39

Hi Manas,

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

Option Explicit
Sub Blaetter_anlegen()
Dim x As Byte
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")
With Application
    .ScreenUpdating = False
        For x = 1 To 50
            Worksheets.Add after:=Worksheets(Worksheets.Count)
            Worksheets(Worksheets.Count).Name = ws.Cells(x, 1)
        Next x
        ws.Activate
    .ScreenUpdating = True
End With
End Sub

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

Gruß Boris

Re: Namensliste auf Blätter aufteilen
von: mans
Geschrieben am: 22.04.2003 - 11:20:11

Tausend Dank!
Manas

Re: Namensliste auf Blätter aufteilen
von: manas
Geschrieben am: 22.04.2003 - 11:20:50

Toll, danke!
manas