Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für Gliederung

Makro für Gliederung
15.12.2006 13:36:52
Thomas
Hallo,
ich wollte mir eine Schaltfläche mit einem Makro belegen, welches eine Gliederung öffnet.
Ich habe hierzu 4 Gliederungen und 4 CommandButtons angelegt, nun soll nach betätigen eines CommandButtons entweder die entsprechende Gliederung aufgeklappt, oder wenn bereits offen, geschlossen werden. Leider nimmt der Makrorecorder diese Funktion nicht an.
Könnt ihr mir weiterhelfen?
MfG aus Berlin
Thomas R.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für Gliederung
15.12.2006 16:00:40
fcs
Hallo Thomas,
ich habe via Menü Daten-GruppierungGliederung-Detailseinblenden/Detailsausblenden Makro-Code aufgezeichnet.
Dieser Code funktionierte dann aber auch nicht. Nachdem ich den letzten Parameter glöscht hab läuft das Ein-/Ausblenden von Zeilen bzw. Spalten. Je nachdem ob die Detaildaten, die ein-/ausgeblendet werden sollen ober- oder unterhalb bzw. links oder rechts der Haupt-/Summenzeile bzw. -spalte stehen muss die entsprechende If-Anweisung verwendet werden.

Sub GliederungZeileEinAus()
Range("B8").Select 'Zelle in Summenzeile, deren Details ein-/Ausgeblendet werden sollen
If Selection.Offset(-1, 0).EntireRow.Hidden = True Then 'Summenzeile steht unterhalb der Detaildaten
'    If Selection.Offset(1, 0).EntireRow.Hidden = True Then 'Summenzeile steht oberhalb der Detaildaten
Application.ExecuteExcel4Macro "SHOW.DETAIL(1,7,TRUE,)"
Else
Application.ExecuteExcel4Macro "SHOW.DETAIL(1,7,FALSE,)"
End If
End Sub
Sub GliederungSpalteEinAus()
Range("G1").Select 'Zelle in Summenspalte, deren Details ein-/Ausgeblendet werden sollen
If Selection.Offset(0, -1).EntireColumn.Hidden = True Then 'Summenspalte steht rechts der Detaildaten
'    If Selection.Offset(0, 1).EntireColumn.Hidden = True Then 'Summenspalte steht links der Detaildaten
Application.ExecuteExcel4Macro "SHOW.DETAIL(2,7,FALSE,)"
Else
Application.ExecuteExcel4Macro "SHOW.DETAIL(2,7,TRUE,)"
End If
End Sub

Gruß
Franz
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige