Clever-Excel-Forum

Könnt ihr mir sagen warum den Code in der angehängten Datei nicht funktioniert?

Danke!


Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
    If Not Intersect(Range("C1", Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)), Target) Is Nothing Then
        FilterColumn
    End If
 
End Sub
 
Sub FilterColumn()
 
    Dim hide As Boolean
   
    If Cells(1, 1).Interior.ColorIndex <> 46 Then hide = True
       
    If hide Then
        Range(Cells(ActiveCell.Row, 3), Cells(ActiveCell.Row, Columns.Count)). _
            RowDifferences(Comparison:=ActiveCell).EntireColumn.Hidden = True
        Cells(ActiveCell.Row, 1).Interior.ColorIndex = 46
    Else
        Columns.Hidden = False
        Columns(1).Interior.ColorIndex = xlNone
    End If
    Cells(1, 1).Select

End Sub

Hallo,

Ungeprüft und nur nach Augenschein ist die range-Angabe nach 'intersect' sehr merkwürdig.

Mfg

Hallöchen,

eventuell funktioniert der Code nicht, weil er nicht in der Datei ist?
Er gehört in das Codemodul von Blad1

Ist er drin, blendet er auch Spalten aus. Funktioniert also erst mal. Wäre jetzt nur noch die Frage, ob es die gewünschten Spalten sind.

Irgendwie funktioniert es jetzt, komisch...

Danke für eure schnelle Hilfe!