Spezialfilter xl2003 ok xl2007 nikkesse

Question

Salvete

ich stehe auf dem Schlauch, folgender Code funzt bis Excel2003,
bei Excel2007 passiert nichts, kein Kopieren, keine Fehlermeldung

Range("Datenbank").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Suchkriterien"), CopyToRange:=Range("Zielbereich"), Unique:=False

Datenbank ist ein Bereich in einem anderen Blatt als Suchkriterien und Zielbereich
Code mit Angabe der jeweiligen Blätter läuft genauso ergebnislos
in Excel2007

MfG

Answer 1

Hi
bisher vergeblich gegoogelt, das hier könnte die Lösung sein:
http://meinews.niuz.biz/problem-t135974.html

Problem bei Filterung von Datumswerten, Datum soll danach nur mit Ganzzahl funzen

Wäre ja ein "Superfortschritt" und ein Grund mehr, Excel2007 zu hassen
Kann es erst testen, wenn ich in meinem Büro mit Excel 2007 sitze.

Kann das Problem jemand bestätigen und gibt es eine Lösung, mit der man nicht jeden Datumwert erst in Ganzzahlen umwandeln muss.

MfG

Answer 2

Hallo,

bei mir läuft Dein Code.

Rufst Du das Makro aus dem Zielblatt heraus auf?
Wenn nicht, musst Du es im Code selektieren.

Gruss
Rainer

Answer 3

hi schnallgonz ^^

probier mal das :-)

hab aber nur excel 2000

gruss nighty

Index der Worksheets gegebenenfalls durch namen einsetzen

Sub Afilter()
Dim rngDatenbank As Range
Dim rngFilter As Range
Dim rngAusgabe As Range
Set rngDatenbank = Worksheets(2).Range(Datenbank)
Set rngFilter = Worksheets(1).Range(Suchkriterien)
Set rngAusgabe = Worksheets(1).Range(Zielbereich)
rngDatenbank.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rngFilter, CopyToRange:=rngAusgabe, Unique:=False
End Sub

Answer 4

hi all ^^

*huch*

einsetzen sollte ja ersetzen heissen

gruss nighty

Answer 5

hi schnallgonz ^^

oder so aehnlich, das du umformatierst ?

gruss nighty

Sub Afilter()
Dim rngDatenbank As Range
Dim rngFilter As Range
Dim rngAusgabe As Range
Set rngDatenbank = Worksheets(2).Range(Datenbank)
Set rngFilter = Worksheets(1).Range(Suchkriterien)
Set rngAusgabe = Worksheets(1).Range(Zielbereich)
rngDatenbank.NumberFormat = "0"
rngDatenbank.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rngFilter, CopyToRange:=rngAusgabe, Unique:=False
rngDatenbank.NumberFormat = "d/m/yy"
End Sub

Answer 6

hi ^^

waere mal interessant zu wissen ob ob der code kompatibilität gewaehrleistet ?

excel 2000 vs excel 2003 vs 2007

gruss nighty

p.s.
oder hat wer wer noch andere ideen ?
oder ist das prob durch ms patch vielleicht schon behoben ?
oder ist es gar ein anwender bedienungsfehler ?

hab ja kein excel 7 ^^

Answer 7

Salvete
erstmal Danke für die bisherigen Antworten
wie gesagt, bis Excel2003 null problemo, Excel2007 keine Reaktion bei der o.g. Codezeile

@rainberg
Das Makro wird per Button auf dem Zielblatt aufgerufen, gleichzeitig im Code das Zielblatt per select ausgewählt
sonst gäbe es auch unter excel2003 Probleme

@nighty
das mit der konkreten Tab-Benennung habe ich auch schon probiert
Worksheets("Datenblatt").Range(Datenbank).AdvancedFilter Action....

ebenfalls ohne Ergebnis

Es wird wohl darauf hinaus laufen, vor dem Filtern alle Datumswerte in einer Spalte und die Suchbegriffe auf Zahl zu setzen und nach dem Filtern wieder zurück in das Datumsformat zu formatieren

m.a.W. die neue Excelversion bringt hier eine Verschlechterung
bin noch nicht zum Testen gekommen, ich selbst habe kein Excel2007 und hoffe im Büro so lange wie möglich um diese Produkt herumzukommen, am Besten bis zur Pensionierung...

Die neue Oberfläche empfinde ich als echte Zumutung und solche Probleme wie mit dem Datumsformat tragen nicht unbedingt zur Akzeptanz bei, ist aber ein anderes Thema

Ich melde mich, sobald ich Gelegenheit habe, das makro unter Excel2007 zu testen mit "Formatierungsschleife"
klappt das dann, ok, wenn auch suboptimal, ansonsten stünde ich echt auf dem Schlauch

MfG

Answer 8

Hallo Schnallgonz,

wäre es möglich eine Beispielmappe einzustellen?

Ich arbeite schon länger mir Excel2007 und auch oft mit dem Spezialfilter und hatte bisher solche Probleme noch nicht.

Gruss
Rainer