Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Gruppierung von Arbeitsblättern per Macro aufheben

Gruppierung von Arbeitsblättern per Macro aufheben
26.06.2006 11:09:07
Arbeitsblättern
Hallo liebe Excel-Gemeinde,
ich habe ein kleines Problem aber Ihr könnt mir sicherlich helfen.
Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern. Aus dieser Mappe werden vier Blätter
in eine neue Arbeitsmappe kopiert. Diese wird dann gespeichert und geschlossen.
Bei der noch offenen Arbeitsmappe soll die Gruppierung der vier Arbeitsblätter wieder aufgehoben werden.
Ich habe es bereits mit "Sheets(Array("Deckblatt", "Seite 2", "Seite 3", "Seite 4")).Ungroup" probiert aber leider ohne Erfolg.
Habt Ihr vielleicht einen Tipp für mich?
Schon mal vielen Dank
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gruppierung von Arbeitsblättern per Macro aufheben
26.06.2006 12:00:54
Arbeitsblättern
Hi Frank,
das da wäre eine Möglichkeit
Set blaetter = Sheets(Array("Deckblatt", "Seite 2", "Seite 3", "Seite 4"))
Set blaetter = nothing
Sheets("Deckblatt").Activate
Gruss Harald
AW: Gruppierung von Arbeitsblättern per Macro aufheben
26.06.2006 12:28:16
Arbeitsblättern
Hallo Harald,
supi. Danke für den Tipp hat gefunzt
Danke für die Rückmeldung owT
26.06.2006 12:29:46
Harald
Gruss Harald
Anzeige
AW: Gruppierung von Arbeitsblättern per Macro aufheben
26.06.2006 12:12:19
Arbeitsblättern
Hallo Frank,
obwohl ich versuche ohne die Anweisung Select auszukommen, wäre das hier vielleicht doch mal eine Möglichkeit.
Durch z.B. Sheet(1).Select hebst Du die Gruppierung auf.
Gruss Wilhelm
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Gruppierung von Arbeitsblättern in Excel aufheben


Schritt-für-Schritt-Anleitung

Um die Gruppierung von Arbeitsblättern in Excel aufzuheben, kannst du ein einfaches VBA-Makro verwenden. Befolge diese Schritte:

  1. Öffne die Excel-Datei, in der die Arbeitsblätter gruppiert sind.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Füge folgenden Code in das Modul ein:

    Sub GruppierungAufheben()
       Dim blaetter As Sheets
       Set blaetter = Sheets(Array("Deckblatt", "Seite 2", "Seite 3", "Seite 4"))
       blaetter.Ungroup
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus, um die Gruppierung der angegebenen Arbeitsblätter aufzuheben.


Häufige Fehler und Lösungen

  • Fehler: "Ungroup-Methode kann nicht angewendet werden"

    • Lösung: Stelle sicher, dass die Blätter, die du aufheben möchtest, tatsächlich gruppiert sind. Überprüfe auch, ob der Name der Arbeitsblätter korrekt ist.
  • Fehler: Das Makro funktioniert nicht

    • Lösung: Überprüfe, ob die Arbeitsblätter in der gleichen Arbeitsmappe sind und dass die Namen genau übereinstimmen.

Alternative Methoden

Wenn du die Gruppierung auf eine andere Weise aufheben möchtest, kannst du auch die folgende Methode verwenden:

  • Aktiviere einfach eines der gruppierten Arbeitsblätter. Zum Beispiel:

    Sheets("Deckblatt").Select

Das Auswählen eines Arbeitsblatts hebt die Gruppierung ebenfalls auf.


Praktische Beispiele

Hier ist ein Beispiel, wie du die Gruppierung in einer Pivot-Tabelle aufheben kannst:

  1. Wähle die Pivot-Tabelle aus, die du bearbeiten möchtest.
  2. Gehe zu PivotTable-Analyse > Gruppierung aufheben.

Wenn du mehrere Pivot-Tabellen hast, achte darauf, die Gruppierung für jede Tabelle individuell aufzuheben.


Tipps für Profis

  • Nutze Option Explicit am Anfang deines VBA-Codes, um sicherzustellen, dass alle Variablen deklariert sind. Das hilft, Fehler zu vermeiden.
  • Du kannst auch eine Schleife verwenden, um die Gruppierung für eine Vielzahl von Arbeitsblättern auf einmal aufzuheben:

    Sub AlleGruppierungenAufheben()
       Dim ws As Worksheet
       For Each ws In ThisWorkbook.Worksheets
           ws.Ungroup
       Next ws
    End Sub

FAQ: Häufige Fragen

1. Wie kann ich die Gruppierung von Arbeitsblättern in Excel entfernen? Um die Gruppierung zu entfernen, kannst du entweder das oben genannte VBA-Makro verwenden oder einfach ein Arbeitsblatt aktivieren, um die Gruppierung aufzuheben.

2. Gibt es eine Möglichkeit, alle Gruppierungen in einer Arbeitsmappe auf einmal aufzuheben? Ja, du kannst eine Schleife verwenden, um alle Arbeitsblätter in der Arbeitsmappe zu durchlaufen und die Gruppierungen aufzuheben. Das Beispiel im Abschnitt "Tipps für Profis" zeigt, wie das geht.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige