Office: Autofilter mit Makro erstellt funktioniert nicht

Hallo Ihr Spezialisten,
ich kämpfe noch immer mit den Autofilter mit Makro.
Nachstehend der Code:

Sub filter02()
'
' filter02 Makro
' Makro am 08.01.2012 von GROSS aufgezeichnet
'
'
Range("B14:E14").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">0,00", Operator:=xlAnd
End Sub

Das Problem ist, dass die selektierten Zeilen nach ausführen des Makros nicht
angezeigt werden. Es werden einfach alle Zeilen ausgeblendet. Leider komme
ich nicht drauf warum? Bitte um Info. Ich habe Excel Version 2003 und Windows 7.

 

Hallo Gerry,

versuche es ohne selekt
With Range("B14:E14")
.AutoFilter
.AutoFilter Field:=1, Criteria1:=">0,00"
end with

Gruß Hajo

 

Gu Gery,

dazu müsste man deine Arbeitsmappe vorliegen haben.

Bis später,
Karin

 

Und welchen Unterschied zum beschriebenen Fehler soll das machen?

Wozu? Wenn man direkt aus der Beschreibung des Fehlers nicht schon weiß, wo das Problem liegen müßte (vielleicht, weil man das Problem schon kennt), dann ist es eine 30-Sekunden-Aufgabe, B14:E14 mit a,b,c,d zu füllen und in B15:E17 mal die Zahlen -1, 0 und 1 einzutragen. Ein Copy&Paste in den VBA-Editor ist in den 30 Sekunden sogar auch noch zu schaffen.

Nun haben wir 2 Antworten, deren Ersteller sich anscheinend nicht länger als 30 Sekunden mit der Frage beschäftigt haben, die dem Fragesteller mal eben gleich gar nicht weiter helfen und letztendlich nur nach Standard-Antwort mit Copy&Paste eines Textmakros aussehen. Herzlichen Glückwunsch...

Um der Sache mal etwas Vortrieb zu geben: Das Problem liegt, man könnte es an der Beschreibung des Fehlers ja schon fast vermuten, am Festlegen des Filterkriteriums. Und worüber stolpert man immer wieder, wenn man (deutsches) Excel und (englisches) VBA aufeinanderprallen läßt? An der Formatierung von Zahlen! Ersetze mal das "," durch ein ".", dann klappt es. Und als kleine Ergänzung: Deaktiviere den Autofilter vielleicht noch, bevor Du ihn setzt, damit ein erneutes Aufrufen des Makros auch wirklich Wirkung hat.

Code:

AutoFilterMode = False
Range("B14:E14").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">0.00", Operator:=xlAnd

Gruß, Michael

 

Hallo Michael,
ich danke Dir das du dir für meine Frage soviel Zeit genommen hast.
Ich bin froh das es solche Spezialisten wie Dich gibt.

Viele Grüsse
Gery 47