Fehler bei Makro Gruppieren

[rldrake]

Hallo,
nun habe ich wieder ein kleines Problem. 
Es geht um Gruppierungen. Ich habe zwei Makro um Spalten ein- oder auszublenden. Wenn ich im Makro gruppieren möchte und die entsprechenden Spalten schon gruppiert sind, kommt es zu einer Fehlermeldung. Mit On Error Resume Next kommt man ja nicht generell weiter. Die Fragestellung ist also, wie ich vor der Group-Zeile herausfinde, ob die Zeilen schon "gegroupt" sind,… oder auch umgekehrt.
Beispiel: Die Spalten E bis M sind nicht gruppiert.
 
    Sheets("AnalyseTopGewinner").Select
    Columns("E:M").Select
    Selection.Columns.Ungroup
 
Auf eine Hilfestellung freue ich mich schon, wünsche einen schönen Tag,… und man liest sich.  :43:

[Kuwer]

Hallo,

das lässt sich mit der OutlineLevel-Eigenschaft prüfen:

  With Sheets("AnalyseTopGewinner").Columns("E:M")
    If .OutlineLevel > 1 Then
      .Ungroup
    Else
      '.Group
    End If
  End With

Gruß Uwe

[rldrake]

danke Uwe für die schnelle Hilfe,
werde es heute Abend ausprobieren. Sieht aber gut aus,... falls ich das als Nicht-VBAler beurteilen kann.
Grüße aus dem ungemütlichen Norden
Joachim

[rldrake]

Hallo Uwe,
ich habs mal getestet. Es ist ein richtiger Schritt in die richtige Richtung, aber nach dem Ungroup sind die Spalten E bis M nicht sichtbar. Sie sind zwar da, aber versteckt, die Spalten öffnen sich nicht.
Also, wenn die Spalten gruppiert sind, gleich ob sichtbar (-) oder nicht sichtbar (+), sollen sie durch das Makro "Ungrouped" werden und dann auch sichtbar sein.

Hast du oder sonst jemand noch einen Tip.
Grüße
Joachim

[Kuwer]

Hallo Joachim,

Sie sind zwar da, aber versteckt, die Spalten öffnen sich nicht.
Also, wenn die Spalten gruppiert sind, gleich ob sichtbar (-) oder nicht sichtbar (+), sollen sie durch das Makro "Ungrouped" werden und dann auch sichtbar sein.

stimmt, das hatte ich vergessen:

  With Sheets("AnalyseTopGewinner").Columns("E:M")
    If .OutlineLevel > 1 Then
      .Parent.Outline.ShowLevels , .OutlineLevel
      .Ungroup
    Else
      .Group
    End If
  End With

Gruß Uwe

[rldrake]

moin Uwe,
super, danke für die Hilfe  :)