![]() |
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 ExplicitSub 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
![]() |