AW: Datei mit Makro
07.08.2017 13:12:02
KlausF
Hallo Edgar,
anbei noch eine kleine Korrektur:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
'Range anpassen
Range("B1:G1").Interior.ColorIndex = 34
Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Interior.ColorIndex = 34
Range("A1").Interior.ColorIndex = xlNone
Exit Sub
End If
End If
If Not Intersect(Target, ActiveSheet.AutoFilter.Range) Is Nothing Then
ActiveSheet.AutoFilter.Range.AutoFilter Field:=Target.Column - _
ActiveSheet.AutoFilter.Range.Columns(1).Column + 1, _
Criteria1:="=" & "x", Operator:=xlAnd
Cells(1, Target.Column).Interior.ColorIndex = 36
Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Interior.ColorIndex = 36
End If
Cancel = True
End Sub
Füge die fette Zeile noch dazu.
[ Wenn ich die Spalten und Zeilen erweitere, funktioniert dann das Makro immer noch? ]
Zeilen können beliebig erweitert werden. Falls mehr Spalten, dann ändere die Zeile
Range("B1:G1").Interior.ColorIndex = 34
entsprechend (z.B. in K1).
Du musst natürlich auch den Autofilter vorher einmalig auf alle Spalten erweitern.
Gruß
Klaus