Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Gruppenbearbeitungsmodus auflösen

Forumthread: Excel Gruppenbearbeitungsmodus auflösen

Excel Gruppenbearbeitungsmodus auflösen
30.04.2014 09:50:48
david.a2k
Hallo,
ich habe in einem Execl Dokument eine VBA Funktion um mehrere Tabellenblätter auf einmal zu drucken. (siehe unten)
Dann sind diese Tabellenblätter aber alle auf einmal selektiert und ich kann z.B. keine Pivots mehr bearbeiten.
Ich muss dann erst mit Rechtsklick auf eines der selektierten Tabellenblätter klicken und die Gruppierung auflösen.
Kann mir jmd helfen, dass diese Gruppierung nach dem Drucken automatisch wieder aufgelöst wird?
Danke und Gruß
Sub Drucken()
Dim strPinterName As String
Dim varRueckgabe As Variant
strPrinterName = Application.ActivePrinter
varRueckgabe = Application.Dialogs(xlDialogPrinterSetup).Show
If varRueckgabe = "Falsch" Then Exit Sub
Dim Antwort
Antwort = MsgBox("Sheet4 & Sheet5, "Frage")
If Antwort = vbNo Then
Dim ArrDruck() As String
Dim i As Integer
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).PrintOut
Else
Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).PrintOut
End If
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Excel Gruppenbearbeitungsmodus auflösen
30.04.2014 09:56:45
UweD
Hallo
du könnstest zu Schluss deines Makros einfach ein (das erste) Blatt auswählen
...
End If
Sheets("Tabelle1").Select
End Sub

Gruß UweD

AW: Excel Gruppenbearbeitungsmodus auflösen
30.04.2014 10:07:51
david.a2k
Hallo,
danke für das Deedback!
Mit dem Code befindet man sich zwar auf dem ersten Sheet, die anderen sind aber immer noch selektiert /weiß hinterlegt). Diese Selektion muss noch aufgelöst werden,
Danke und Gruß

Anzeige
AW: Excel Gruppenbearbeitungsmodus auflösen
30.04.2014 10:09:47
Hajo_Zi
dann schreibe
Worksheets(1).Activate

AW: Excel Gruppenbearbeitungsmodus auflösen
30.04.2014 10:49:07
david.a2k
Danke funktioniert!
;
Anzeige

Infobox / Tutorial

Excel Gruppenbearbeitungsmodus auflösen

Schritt-für-Schritt-Anleitung

Um den Gruppenbearbeitungsmodus in Excel aufzulösen, kannst Du dein vorhandenes VBA-Makro anpassen. Folge diesen Schritten:

  1. Öffne den VBA-Editor mit ALT + F11.
  2. Füge den folgenden Code in Dein Makro ein, um nach dem Drucken die Gruppierung aufzulösen:
Sub Drucken()
    Dim strPrinterName As String
    Dim varRueckgabe As Variant
    strPrinterName = Application.ActivePrinter
    varRueckgabe = Application.Dialogs(xlDialogPrinterSetup).Show
    If varRueckgabe = "Falsch" Then Exit Sub

    Dim Antwort
    Antwort = MsgBox("Sheet4 & Sheet5, ""Frage""")
    If Antwort = vbNo Then
        Sheets(Array("Sheet1", "Sheet2", "Sheet3")).PrintOut
    Else
        Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).PrintOut
    End If

    ' Hier wird das erste Blatt aktiviert und die Selektion aufgelöst
    Worksheets(1).Activate
End Sub
  1. Schließe den VBA-Editor und führe das Makro aus.

Häufige Fehler und Lösungen

  • Problem: Die anderen Tabellenblätter sind nach dem Drucken immer noch selektiert.

    • Lösung: Stelle sicher, dass Du am Ende des Makros Worksheets(1).Activate einfügst, um die Selektion aufzulösen.

  • Problem: Das Makro funktioniert nicht wie erwartet.

    • Lösung: Überprüfe, ob die Tabellennamen korrekt sind und ob der Drucker richtig eingestellt ist.

Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du die Gruppierung manuell auflösen:

  1. Klicke mit der rechten Maustaste auf eines der selektierten Blätter.
  2. Wähle „Gruppierung aufheben“ aus dem Kontextmenü.

Diese Methode ist jedoch weniger effizient, wenn Du oft mit mehreren Blättern arbeitest.

Praktische Beispiele

Angenommen, Du hast die Blätter "Januar", "Februar" und "März" in Excel. Wenn Du ein Makro erstellen möchtest, das diese Blätter druckt und danach die Gruppierung aufhebt, kannst Du den oben genannten Code verwenden und die Blattnamen entsprechend anpassen.

Sheets(Array("Januar", "Februar", "März")).PrintOut
Worksheets(1).Activate  ' Aktiviert das erste Blatt

Tipps für Profis

  • Verwende Application.ScreenUpdating = False am Anfang Deines Makros, um Bildschirmflackern zu vermeiden.
  • Setze Application.ScreenUpdating = True am Ende, um die Anzeige wiederherzustellen.
  • Teste Dein Makro in einer Kopie Deiner Datei, um ungewollte Änderungen zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Blätter auf einmal drucken? Du kannst die Funktion PrintOut in einem VBA-Makro verwenden, um mehrere Blätter gleichzeitig zu drucken.

2. Was mache ich, wenn mein Makro nicht funktioniert? Überprüfe die Syntax und stelle sicher, dass die Blattnamen korrekt sind. Du kannst auch den VBA-Editor verwenden, um Fehler zu identifizieren.

3. Gibt es eine Möglichkeit, die Gruppierung ohne VBA zu lösen? Ja, Du kannst die Gruppierung manuell aufheben, indem Du mit der rechten Maustaste auf ein Blatt klickst und „Gruppierung aufheben“ wählst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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