Erstellen Tabellenblätter mittels Makro
02.10.2020 12:00:07
G.B.
meine Tabelle geht von Spalte A Zeile 1531 bis Spalte L Zeile 1531
Ich möchte die Werte von Spalte A bis Spalte L der Ursprungstabelle, in neue Tabellenblätter kopieren. Der Name der anzulegenden Tabellenblätter, soll sich aus den Werten der Zellen in Spalte B ergeben.
In das neu erstellte Tabellenblatt, sollen die Werte kopiert werden, deren Wert in Spalte B gleich ist.
Problem ist, dass die Werte für die Benennung der neuen Tabellenblätter in Spalte B mehrfach _ vorkommen. Damit geht meine aktuelle Lösung so nicht wirklich. Da ich dann 1531 Tabellenblätter bekomme.
Sub Neue_Tabellenblaetter()
Dim Bereich As String
Dim Zelle As Range
Dim Tabelle As Worksheet
Bereich = "a1:a1531"
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
End Sub
Hätte jemand eine Idee?