irgentwie stehe ich auf dem Schlauch.
Tabelle1 | ||||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||||
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