Microsoft Excel

Herbers Excel/VBA-Archiv

Erstellen Tabellenblätter mittels Makro

Betrifft: Erstellen Tabellenblätter mittels Makro von: G.B.
Geschrieben am: 02.10.2020 12:00:07

Hallo zusammen,


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?

Betrifft: AW: Erstellen Tabellenblätter mittels Makro
von: EtoPHG
Geschrieben am: 02.10.2020 12:07:24

Hallo,

1. Der Bereich A1:A1531 umfasst tatsächlich 1531 Zellen!
2. Zitat "geht von Spalte A Zeile 1531 bis Spalte L Zeile 1531, wären hingegen gerade mal 11 Zellen!
3. Was also 1. oder 2. ?
4. Natürlich müssen die Namen eindeutig sein. Da musst du selbst nach einer Lösung suchen, dass die Inhalte im gewählten Bereich EINEINDeutig (UNIQUE) sind!

Gruess Hansueli

Betrifft: AW: Erstellen Tabellenblätter mittels Makro
von: G.B.
Geschrieben am: 02.10.2020 12:57:23

Hi,

ja du hast Recht ;-) natürlich 1.
Der zu durchsuchende Bereich geht von A2:L1531.
Die Werte in Spalte B sind grundsätzlich eindeutig, kommen aber halt mehrfach vor.

In Zeile A1:L1 stehen natürlich noch die Spaltenüberschriften.

Betrifft: AW: Eindeutig <> EINEindeutig! (omg & owT)
von: EtoPHG
Geschrieben am: 02.10.2020 14:09:08



Betrifft: AW: Erstellen Tabellenblätter mittels Makro
von: peterk
Geschrieben am: 02.10.2020 12:13:34

Hallo

Schau mal

https://www.herber.de/forum/cgi-bin/callthread.pl?index=1778713

P.S. Deine Tabelle sollte ein Überschriftszeile haben, damit der Filter funktioniert