Re: Tabellenblatt anlegen
13.05.2003 17:27:51
gast
aus den tiefen von hans server:Sub AnlegenSortieren()
Dim TB As Worksheet, TB1 As Worksheet
Dim i%, Kontrollname$
Application.ScreenUpdating = False
Set TB = Worksheets("Liste")
i = 1
While IsEmpty(TB.Cells(i, 1)) = False
Kontrollname = TB.Cells(i, 1)
On Error GoTo NeuesRegister
Set TB1 = Worksheets(Kontrollname)
i = i + 1
Wend
Call SortWorksheets
Worksheets(1).Select
Exit Sub
NeuesRegister:
Worksheets.Add
ActiveSheet.Name = Kontrollname
Resume
End Sub
Public Sub SortWorksheets()
Dim Cnt%, N%, M%
Dim WS As Worksheet
Set WS = ActiveSheet
Cnt = ActiveWorkbook.Worksheets.Count
For M = 1 To Cnt
For N = M To Cnt
If Worksheets(N).Name < Worksheets(M).Name Then
Worksheets(N).Move Before:=Worksheets(M)
End If
Next N
Next M
End Sub