Das Clever-Excel-Forum.de - Treffen
... 14.-16. September 2018 im Allgäu ...

VBA Check: Filter Spalten
#1
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


Angehängte Dateien
.xlsm   ColumnFilter.xlsm (Größe: 42,54 KB / Downloads: 6)
to top
#2
Hallo,

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

Mfg
to top
#3
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.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#4
Irgendwie funktioniert es jetzt, komisch...

Danke für eure schnelle Hilfe!
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste