Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle in mehrere Tabellen splitten

Tabelle in mehrere Tabellen splitten
13.08.2007 13:11:00
Claus
Hallo Leute,
ich hab da ein kleines Problem mit einem Makro, und hoffe ihr könnt mir helfen.
In einer Tabelle (Spalten A-H), besteht die erste Spalte aus den Bezeichnungen verschiedener Prüfungen.
Ich möchte nun diese Tabelle in mehrere Arbeitsblätter trennen.
Die erste Spalte ist immer folgendermaßen aufgebaut.
A
Seite
Prüfung1
Prüfung2
Prüfung3
Seite
Prüfung1
Prüfung2
Seite
Prüfung1
Prüfung2
Prüfung3
Prüfung5
usw.
d.h. es werden immer eine unterschiedliche Anzahl von Prüfungen durchgeführt und die Seite, die als erstes steht ist die Zuordnung.
Am Ende soll also in jedem Arbeitsblatt die Seite, und dann die Prüfungen mit den Spalten A-H stehen.
MfG Claus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle in mehrere Tabellen splitten
14.08.2007 12:45:43
Chaos
Servus Claus,
hat etwas länger gedauert, aber ist soweit fertig.
kurze Erklärung:
Voraussetzung, dass das Makro funktioniert ist:
Deine Seitenbezeichnung müsste folgendermaßen ausschauen: Seite 1, Seite 2, also Seite *, wenn nicht funktioniert das Makro so nicht bzw. es müssen entsprechende Änderungen vorgenommen werden.
das ist eine der verantwortlichen Zeilen:
If .Cells(z, 1).Value Like "Seite *" Then
Du kannst das Makro auch mehrmals verwenden, z.B. wenn neue Datensätze hinzugekommen sind, dann werden nur die neuen Tabellenblätter angelegt oder wenn es ausgeführt wird und es gab nichts neues wird das auch berücksichtigt (ohne Fehler).
Weiterhin werden die Tabellenblätter wie die Seiten benannt, zwecks Übersichtlichkeit und alle in Reihenfolge geordnet.
Ich habe in der Beispieldatei nur 1 Sheet = Sheet(1). Evtl. muss man das noch im Makro anpassen, wenn dein Sheet nicht die 1 ist.
Schau dir die Beispielmappe an:
https://www.herber.de/bbs/user/45053.xls
Gruß
Chaos
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige