Microsoft Excel

Herbers Excel/VBA-Archiv

Selection.AutoFilter Field:=1, Criteria1:="=" & | Herbers Excel-Forum


Betrifft: Selection.AutoFilter Field:=1, Criteria1:="=" & von: Andy
Geschrieben am: 21.01.2010 14:01:32

Hallo zusammen,
ich verwende folgende Zeilen;
**********************************************

Private Sub Worksheet_Change(ByVal Target As Range)
  Select Case Target.Address
    Case "$A$3"
      Selection.AutoFilter Field:=1, Criteria1:="=" & Target
      
End Sub

**********************************************
Ich muss hier, wenn ich im Autofilter A4 was suche was in den Zeilen enthalten, ist in A3 z.B. *Tag* eingeben um die Werte wie Donnerstag, Montag aber nicht Mitwoch zu erhalten.

Meine Frage---
kann ich in VB das nicht so umschreiben das ich diese ** nicht immer manuell schreiben muss?

Danke
Gruß
Andy

  

Betrifft: AW: Selection.AutoFilter Field:=1, Criteria1:="=" & von: Björn B.
Geschrieben am: 21.01.2010 14:14:34

Hallo,

so:

Private Sub Worksheet_Change(ByVal Target As Range)
  Select Case Target.Address
    Case "$A$3"
      Selection.AutoFilter Field:=1, Criteria1:="=*" & Target & "*"
      
End Sub
Gruß
Björn B.


  

Betrifft: AW: Selection.AutoFilter Field:=1, Criteria1:="=" & von: Andy
Geschrieben am: 21.01.2010 14:21:30

Klappt, vielen Dank Björn