Ich habe das hier mal geschrieben. Das Array Name enthält eine bestimmte Anzahl an Investorennamen.
For
i = 1
To
AnzInv
Step
1
SheetName = Name(i).NameFirma
Sheets.Add
ActiveSheet.Move after:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = SheetName
Worksheets(
"MusterSheet"
).Visible =
True
Sheets(
"MusterSheet"
).
Select
Cells.
Select
Selection.Copy
Sheets(SheetName).
Select
ActiveSheet.Paste
Worksheets(
"MusterSheet"
).Visible =
False
Next
i
Das Problem ist, dass er mir nur ein Sheet von dem Mustersheet 1 zu 1 kopiert und entsprechend einfügt. Einen zweiten Schleifendurchlauf macht er nicht.
Ich bekomme folgende Fehlermeldung
Laufzeitfehler
Ich verstehe nicht, wo ein gleicher Name benutzt wird, wenn das Array Name unterschiedliche Einträge hat. Ich bin gerade mit meinem Latein am Ende und hoffe, dass mir jemand noch helfen kann. BITTEEE!!!