Hallo Zusammen,
Ich bin an einem Projekt dran, eine Tabelle zu zerlegen. (Für jedes neue Wort soll ein Tabellenblatt generiert werden, dessen Name das "wort ist"):
Die ersten ca. 100 Tabellenblätter werden sehr schnell erstellt (ungefähr. 20 sekunden) anschliessend dauert es ewig lange noch ca 10 pro Tabellenblatt, kennt jemand die ursache dafür?
gruss
Ich bin an einem Projekt dran, eine Tabelle zu zerlegen. (Für jedes neue Wort soll ein Tabellenblatt generiert werden, dessen Name das "wort ist"):
Visual Basic-Quellcode
- Dim i As IntegerDim nWS As Worksheet
- Dim Bool As Boolean
- Set Bereich = .Range("BG2:BG" & .Range("A65536").End(xlUp).Row)
- For Each Zelle In Bereich
- For i = 2 To .Worksheets.Count
- If .Worksheets(i).Name = Left$(Zelle.Text, 31) Then
- Bool = True Exit For
- Else
- Bool = False
- End If
- Next i
- If Bool = False Then Set nWS = .Worksheets.Add(After:=.Worksheets(.Worksheets.Count))
- nWS.Name = Left$(Zelle.Text, 31)
- End If
- Next Zelle
Die ersten ca. 100 Tabellenblätter werden sehr schnell erstellt (ungefähr. 20 sekunden) anschliessend dauert es ewig lange noch ca 10 pro Tabellenblatt, kennt jemand die ursache dafür?
gruss