Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Autofilter

Forumthread: Autofilter

Autofilter
PeterS
Hallo Experten,
habe nachfolgenden Code (passt genau für meine Anwendung) hier aus dem Forum und möchte nun aber die ersten 2 Zeilen für Überschriften frei haben. Habe versucht den Code anzupassen, sodass die Auswahl in Zeile 3 steht. Irgendwo mache aber etwas falsch. Kann mir bitte jemand sagen was geändert werden muss ?
Danke. Gruß Peter
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
With Target(1, 1)
If .Row = 1 Then
Set rng = Range("A2:H" & Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row))
If .Value = "" Then
rng.AutoFilter Field:=.Column, VisibleDropDown:=False
Else
rng.AutoFilter Field:=.Column, Criteria1:="=" & .Value & "*", _
Operator:=xlAnd, VisibleDropDown:=False
End If
End If
End With
Set rng = Nothing
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Autofilter; Zeilen einschieben
24.03.2010 20:24:02
Peter
Hallo, hat denn keiner einen Tipp ?
Gruß Peter
..teste es einmal.. Gruß
24.03.2010 21:07:50
robert

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
With Target(3, 1)
If .Row = 3 Then
Set rng = Range("A3:H" & Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row))
If .Value = "" Then
rng.AutoFilter Field:=.Column, VisibleDropDown:=False
Else
rng.AutoFilter Field:=.Column, Criteria1:="=" & .Value & "*", _
Operator:=xlAnd, VisibleDropDown:=False
End If
End If
End With
Set rng = Nothing
End Sub

Anzeige
Kleine Änderung, dann funkt's: With Target(1, 1)
25.03.2010 08:49:06
PeterS
thx.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige