Ich bin gerade an einem Gedankenspiel
Ich habe irgendwann mal ein Skript gefunden um aus einer Liste von Namen in Tabellenzellen Arbeitsblätter zu erzeugen
Aus Liste
a b c d
zu Arbeitsblatt a Arbeitsblatt b Arbeitsblatt c Arbeitsblatt d
nun habe ich eine Liste mit 500 Namen(S&P 500). Da jedes einzelne Arbeitsblatt zu benennen würde nicht zweckmäßig sein
also muss ich das Skript umschreiben das er statt Namen einfach eine Nummer schreib, und die nächste natürlich eine Nummer höher
habt ihr Ideen?
Ach ja das Skript
Sub FuegeBlaetterMitNamenEin()
Dim Bereich As String
Dim Zelle As Range
Dim Tabelle As Worksheet
Bereich = "a2:bh2"
With ActiveWorkbook
For Each Zelle In ActiveSheet.Range(Bereich).Cells
Set Tabelle = .Sheets.Add(After:=.Sheets(Sheets.Count))
Tabelle.Name = Zelle.Text
Next Zelle
End With
Wahrscheinlich auch allseits bekannt