Tabelle auf mehrere Registerkarte aufteilen

Hallo liebe Excel-Gemeinde,

Normalerweise versuche ich mir meine Makros aus verschiedenen Beiträgen "zusammenzusetzen" aber leider hab ich bisher nichts passendes gefunden ;-(

Ich habe folgendes Problem

Datenbasis ist ein Datenbankexport Sheet "export"
In Spalte A stehen die Werte "0" und "1"

Die "0" steht für eine übergeordnete Nummer und die darunterliegenden Zeilen mit "1" für die zu diesem Teil zugehörigen Nummern ähnlich einer Gruppierung.
Danach folgt die nächste "0" plus die zugehörigen "1"er Zeilen usw....das ganze als lange Liste

Die Aufgabenstellung ist nun, dass ich die Zeilen welche eine"0" enthalten inkl. der darunterliegenden Zeilen die eine "1" enthalten (bis zur nächsten "0") und der Spaltenüberschrift in ein neues Registerblatt derselben Datei kopieren möchte - dabei soll dann das Registerblatt mit der Nummer (Sachnummer) der entsprechenden "0" Zeile benannt werden.

Die Anzahl der Zeilen mit Wert "1" kann variieren womit kein fixer Auswahlbereich (Selektion anhand Anzahl Zeilen) definiert werden kann.

Auch die Anzahl der übergeordneten Nummern mit "0" ist nicht immer identisch. Das Makro sollte also immer bis zum Ende der Tabelle durchlaufen, und den Bereich von "0" bis zur nächsten "0"-1 Zeile kopieren.

In der Beispieldatei habe ich versucht das ganze mal zu veranschaulichen. https://www.herber.de/bbs/user/166189.xlsx

Hoffe ich konnte mein Problem anschaulich beschreiben, und Ihr habt mir hier eine Lösung
Danke Euch schonmal vorab

Gruß
Tine74

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim i As Long Dim Stufe1 As Range Dim Stufe0 As Range With Sheets("Export").Columns(1) .Replace 0, False, xlWhole Set Stufe0 = .SpecialCells(xlCellTypeConstants, 4) Set Stufe1 = .SpecialCells(xlCellTypeConstants, 1) .Replace False, 0 End With For i = 1 To Stufe1.Areas.Count Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Stufe0.Areas(i).Cells(1, 3).Value Sheets("Export").Rows(1).Copy ActiveSheet.Cells(1, 1) Stufe0.Areas(i).Resize(, 4).Copy ActiveSheet.Cells(2, 1) Stufe1.Areas(i).Resize(, 4).Copy ActiveSheet.Cells(3, 1) Next End Sub

Hallo Tanja,

... aus Deiner Antwort kann ich entnehmen, daß für Dich VBA wahrscheinlich die effektivere Lösungsvariante wäre. Dies weil Du ja nicht nur zwei Hauptsachnummern hast, die Du zudem in Registerkarten gleichen Namens abspeichern möchtest. Mit VBA beschäftige ich mich allerdings nicht.

Mit PQ kann man das sicherlich zwar auch komplett realisieren, aber da braucht man schon sehr gute M-Code Kenntnisse. Ich kenne mich lediglich mit der Standard PQ- Funktionalität etwas aus. Für Deine Zielstellung braucht man für viele Hauptsachnummern dann dadurch etwas mehr "händischen" Aufwand.

Damit könnte man es z.B. so realisieren:
- Lies Deine "export"-Daten in den PQ-Editor ein.
- füge eine benutzerdef. Spalte z.B. mit folgender Formel ein: = Table.AddColumn(#"Geänderter Typ", "Haupt_SachNr", each if [Stufe] = 0 then [Sachnummer] else null)
- danach folgender Schritt: = Table.FillDown(#"Hinzugefügte benutzerdefinierte Spalte",{"Haupt_SachNr"})
- dann filtere die neue Spalte "Haupt_SachNr" nach der ersten (hier die 100)
- dann speichere dies in ein neues Tabellenblatt ab und benenne dieses entsprechend.
- Dupliziere danach die PQ-Abfrage und ändere da die Filterung von 100 auf 200 ab und speichere dies in ein neues Tabellenblatt namens 200
- usw.

Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

Tabelle auf mehrere Registerkarte aufteilen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelle auf mehrere Registerkarte aufteilen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread