Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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)
Antworten Top
#2
Hallo,

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

Mfg
Antworten 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-2019+365)
Antworten Top
#4
Irgendwie funktioniert es jetzt, komisch...

Danke für eure schnelle Hilfe!
Antworten Top


Gehe zu:


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