VBA: Wie geht das schneller
05.07.2013 19:57:11
Raphael
ich nutze Momentan den unten angefügten Code um ein Tabellenblatt zu kopieren und dies unter einem Namen welcher in einer Zelle steht einzufügen.
Der Code ist allerdings sehr langsam, da er jedes Blatt anwählt um den Namen zu vergeben. Gibt es hier einen schnelleren und/oder besseren Ansatz?
Ich muss jedes Mal knapp 100 Blätter erstellen, dauert also ein Weilchen.
Sub Alle_Blätter_gem_Wohnen_1_erstellen()
Dim Kojen_Namen As Range
Dim Zelle As Variant
Set Kojen_Namen = Worksheets("Status").Range("C6:C114")
For Each Zelle In Kojen_Namen
On Error Resume Next
i = Sheets.Count
Worksheets("Wohnen 1").Copy After:=Sheets(i)
ActiveSheet.Name = Zelle.Value
Worksheets(Zelle.Value).Range("F1") = Zelle.Value
Next
End Sub
Besten Dank für eure Hilfe.Gruess
Raphael