Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

2 Spalten per WksChange und Zelleingabe steuern?

2 Spalten per WksChange und Zelleingabe steuern?
19.06.2017 16:46:18
TiloT
Hallo zusammen,
ich möchte gerne den Autofilter in 2 oder mehr Spalten durch Eingabe des Suchwertes in der ersten Zeile steuern per WksChange!
Mit einem WksChange komm ich klar!
Aber wie verschachtel ich das wenn die beiden Filter gemeinsam laufen sollen bzw. sich dann ja auch bedingen?
Gerne für Spalte C bis H, falls das zu viel ist bitte für C und D
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 3 And Target.Row = 1 Then
If Target.Value  "" Then
Selection.AutoFilter Field:=3, Criteria1:=Range("C1").Value
Else
FilterAufheben
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 4 And Target.Row = 1 Then
If Target.Value  "" Then
Selection.AutoFilter Field:=4, Criteria1:=Range("D1").Value
Else
FilterAufheben
End If
End If
End Sub
Sub FilterAufheben()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub Vielen Dank für die Hilfe und Gruß
Tilo

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

Betreff
Datum
Anwender
Anzeige
AW: 2 Spalten per WksChange und Zelleingabe steuern?
20.06.2017 07:53:24
Chris
Wie wäre es denn hiermit?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("C1:H1")) Is Nothing Then Exit Sub
If Target.Value  "" Then
Selection.AutoFilter Field:=Target.Column, Criteria1:=Cells(1, Target.Column).Value
Else
FilterAufheben
End If
End Sub
Sub FilterAufheben()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub

Anzeige
Vielen Dank ihr beiden :)
20.06.2017 09:50:51
TiloT
Hi ihr 2,
danke mal für beide Vorschläge!
Ich denke für meine Aufgaben reicht das völlig aus!
Man sieht sich und Gruß
Tilo

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige