VBA Einzelne Gruppierungen per Makro schließen
17.09.2018 05:10:05
Oliver
zu meinem Einstand hätte ich hier ein kleines, aber hartnäckiges Problem, mit dem ich seit Stunden am kämpfen bin.
Grundproblem: Ich möchte per VBA-Makro eine bestehende Gruppierung öffnen oder schließen. Ausgelöst werden soll das Ganze durch eine eigens gezheichnete Form (z.B. ein Kreis)
Das Grundproblem habe ich mit dem folgenden Code gelöst bekommen
Dim blnExpand As Boolean
Sub expandiere(blnExpand As Boolean)
If blnExpand = True Then
ExecuteExcel4Macro "SHOW.DETAIL(2, 3, true)"
Else
ExecuteExcel4Macro "SHOW.DETAIL(2, 3, false)"
End If
End Sub
Sub rufeMacroAuf_01()
blnExpand = ActiveSheet.Columns(3).Hidden
'Aufruf des Expansionsmacros (kann expandieren und kontrahieren)
expandiere blnExpand
End Sub
Das funktioniert soweit auch ganz gut. Kniffliger wird es, wenn ich nun Variablen verwenden möchte, da ich vorhabe, mit verschiedenen Knöpfen/Formen verschiedene Gruppierungen anzusteuern. Das sähe dann so aus
Dim intRowCol As Integer
Dim intRowColNum As Integer
Dim blnExpand As Boolean
Sub expandiere(intRowCol As Integer, intRowColNum As Integer, blnExpand As Boolean)
If blnExpand = True Then
' ExecuteExcel4Macro "SHOW.DETAIL(2, 3, true)"
ExecuteExcel4Macro "SHOW.DETAIL(intRowCol, intRowColNum, true)"
Else
' ExecuteExcel4Macro "SHOW.DETAIL(2, 3, false)"
ExecuteExcel4Macro "SHOW.DETAIL(intRowCol, intRowColNum, false)"
End If
End Sub
Sub rufeMacroAuf_01() 'und dementsprechend dann nachher rufeMacroAuf_XY()
intRowCol = 2 'mit verschiedenen Werten für rowcol
intRowColNum = 3 'und für rowcol_num
blnExpand = ActiveSheet.Columns(intRowColNum).Hidden
'Aufruf des Expansionsmacros (kann expandieren und kontrahieren)
expandiere intRowCol, intRowColNum, blnExpand
End Sub
Herzliche Grüße,
Oli