Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const ABSPALTE As Long = 9
Dim c As Range, k As Range
If Target.EntireRow.Cells.Count <> Target.EntireRow.SpecialCells(xlCellTypeVisible).Cells.Count Then
Columns.Hidden = False
Else
Set c = Target.EntireRow.Find("*", LookIn:=xlValues)
If Not c Is Nothing Then
Set c = Target.EntireRow.Cells(ABSPALTE)
Set c = Range(c, Target.EntireRow.Cells(Columns.Count).End(xlToLeft))
For Each k In c
If k.Value = "" Then Columns(k.Column).Hidden = True
Next k
Set k = Target.EntireRow.Cells(Columns.Count).End(xlToLeft).Offset(, 1)
Range(Columns(k.Column), Columns(Columns.Count)).Hidden = True
End If
End If
Cancel = True
End Sub