---

Hallo liebe Excel-Fans,

ich habe ein kleines Problem.
ich habe eine große Tabelle, nun möchte es sich per Eingabe filtern.

Code:

---

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

'TB'
If Target.Column = 3 And Target.Row = 4 Then
If Target.Value <> "" Then
Selection.AutoFilter Field:=1, Criteria1:=Range("C4").Value, Operator:=xlOr, Criteria2:="=a"
Else
FilterAufheben
End If
End If

'TH'
If Target.Column = 3 And Target.Row = 5 Then
If Target.Value <> "" Then
Selection.AutoFilter Field:=2, Criteria1:=Range("C5").Value, Operator:=xlOr, Criteria2:="=a"
Else
FilterAufheben
End If
End If

'links / rechts'
If Target.Column = 16 And Target.Row = 2 Then
If Target.Value <> "" Then
Selection.AutoFilter Field:=3, Criteria1:=Range("P2").Value, Operator:=xlOr, Criteria2:="=a"
Else
FilterAufheben
End If
End If

End Sub

Sub FilterAufheben()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub

---

Leider muss ich die Werte auf die selbe Tabelle eintragen. Mein Ziel war es, ein NEUES Tabellenblatt zu machen, was ich dann als Formular nehmen kann.
Aber leider fällt mir nichts ein wie ich das Makro sagen kann, wo er das Eingabenfeld suchen soll.

Hoffe ihr versteht mein Problem  

Danke schon mal im vorraus.

PS:
Habe da was mit worksheet gelesen, finde aber nix weiter dazu.
http://www.excelbeispiele.de/Datei_039.htm

[Diese Nachricht wurde von Cain am 14. Jun. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP