Hallo Leute,
irgentwie stehe ich auf dem Schlauch.

Tabelle1

A B C D 1 1       2         3     0   4         5         Formeln der Tabelle C3 : =WENN(A1=1;gruppieren1(); gruppieren2())

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Public Function Gruppieren1()
Call gruppe1
End Function
Sub gruppe1()
If Rows(ActiveCell.Row).Group = True Then Rows(ActiveCell.Row).Ungroup
Rows(ActiveCell.Row).Group
End Sub
Public Function Gruppieren2()
Call gruppe2
End Function
Sub gruppe2()
If Rows(ActiveCell.Row).Ungroup = True Then Rows(ActiveCell.Row).Group
Rows(ActiveCell.Row).Ungroup
End Sub
Warum geht das nicht? Gruß Rocky

Wenn unter den Blinden der Einäugige König ist, dann findet man hier die Herren der Ringe!