Excel Gruppenbearbeitungsmodus auflösen
30.04.2014 09:50:48
david.a2k
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