title image


Smiley Re: Autofilter mit Bezugsquelle
Hallo Kai,



so in der Art gehts:



Sub Schaltfläche1_BeiKlick()

Dim oWS As Worksheet

Dim dblDatum As Double

Set oWS = ActiveSheet

dblDatum = CDbl(oWS.Range("B2").Value)

If ActiveSheet.AutoFilterMode Then

With oWS.AutoFilter

.Range.AutoFilter Field:=1, Criteria1:="<" & dblDatum 'Eintrittsdatum

.Range.AutoFilter Field:=2, Criteria1:=">" & dblDatum 'Austrittsdatum

End With

End If

End Sub

Code eingefügt mit: Excel Code Jeanie



Der Autofilter muss in meinem Beispiel schon aktiv sein (Pfeile sind sichtbar).

Gruß Uwe



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: