AdvancedFilter funktioniert nicht!
31.10.2005 17:59:30
Florian
in meinem Makro soll eine Liste mit Datumswerten so gefiltert werden, dass jedes Datum nur einmal vorkommt. Diese Liste der einmaligen Datumswerten soll in einem anderen Bereich der Tabelle aufgelistet werden.
Hier mein Befehl:
Set Bereich = ActiveSheet.Range("B2:B" & Range("K1").Value)
Bereich.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Bereich, CopyToRange:=Range("L1:L1000"), Unique:=True
Zur Erklärung: In K1 steht die Anzahl der befüllten Zeilen + 1 wegen der Überschrift. Komischerweise funktioniert das Ganze aber nicht. Doppelte Datumswerte tauchen doppelt auf. Habe auch schon versucht, die Zellen als Text oder benutzerdefiniertes Datum zu formatieren. Leider ohne Erfolg.
Kann mir hier jemand helfen?
Gruß Florian Scheidler