Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Excel Gruppenbearbeitungsmodus auflösen

Betrifft: Excel Gruppenbearbeitungsmodus auflösen von: david.a2k
Geschrieben am: 30.04.2014 09:50:48

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

  

Betrifft: AW: Excel Gruppenbearbeitungsmodus auflösen von: UweD
Geschrieben am: 30.04.2014 09:56:45

Hallo

du könnstest zu Schluss deines Makros einfach ein (das erste) Blatt auswählen

...
End If

    Sheets("Tabelle1").Select

End Sub

Gruß UweD


  

Betrifft: AW: Excel Gruppenbearbeitungsmodus auflösen von: david.a2k
Geschrieben am: 30.04.2014 10:07:51

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ß


  

Betrifft: AW: Excel Gruppenbearbeitungsmodus auflösen von: Hajo_Zi
Geschrieben am: 30.04.2014 10:09:47

dann schreibe
Worksheets(1).Activate

GrußformelHomepage


  

Betrifft: AW: Excel Gruppenbearbeitungsmodus auflösen von: david.a2k
Geschrieben am: 30.04.2014 10:49:07

Danke funktioniert!