Mein Problem ist folgendes: Ich würde gerne Spalten ausgeblendet haben, egal ob die Gruppierung geöffnet oder geschlossen ist.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Const APPNAME = "Worksheet_Change"
Target.EntireColumn.AutoFit
Columns("K").EntireColumn.Hidden = True
Columns("W").EntireColumn.Hidden = True
Columns("AI").EntireColumn.Hidden = True
Columns("AU").EntireColumn.Hidden = True
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number > 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Dieser Code funktioniert schon mal, aber es ist halt nicht optimal, da die ausgeblendeten Spalten immer wieder eingeblendet werden und erst nach einer Änderung wieder ausgeblenet werden. Ich hätte aber gerne dass sie permanent ausgeblendet bleiben und dazu finde ich noch keine Lösung und darum bitte ich euch um Hilfe.
Lg