Supportnet / Forum / Tabellenkalkulation

Hi Leute! Habe eine Filterfunktion in einem Makro eingebettet Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=">=" & Range("B8").Value, Operator:=xlAnd In B8 gebe ich jeweils die Grenze für meine Auswahl ein. Wen ich jetzt z.B.6 eingebe lieferte er mir alle Zahlen die Größer 6 sind; somit auch die negativen. Wie kann ich das ausschließen. Danke im Voraus Gruß Stefan

Hallo Stefan

Wenn ich Grösser_Gleich eingebe zeigt er mir die Gesuchte und die Grösseren an, aber bestimmt keine Minus. Der unten stehende Code fragt nicht nach B8.

Veruch mal diesen Code, da musst Du das Suchkriterium folgend in der Intputbox eingeben;
z.B
>=6
oder nur
=6
oder, oder

Sub AUTOFILTER_EINGABE()
If ActiveSheet.FilterMode = True Then
Selection.AutoFilter
End If
AFIL = InputBox(Prompt:="Benutzerdefiniert")
Selection.AutoFilter Field:=1, Criteria1:=(AFIL), Operator:=xlAnd
End Sub

Gruss Werner

Hallo Stefan

Diese paar Zeilen reichen vollständig, die obern kannst Du löschen.

Sub AUTOFILTER_EINGABE()
AFIL = InputBox(Prompt:="Benutzerdefiniert")
Selection.AutoFilter Field:=1, Criteria1:=(AFIL), Operator:=xlAnd
End Sub

Gruss Werner

Hi Werner!

Danke für deine rasche Antwort, aber er werden leider noch immer die negativen und positiven Werte angezeigt. Kann es vielleicht an der Formatierung der Zellen liegen?

Gruß

Stefan

Hallo Stefan

Leider ist meine Kristallkugel defekt, deshalb kann ich das Format Deiner Zellen nicht sehen.

http://www.uploadagent.de/files/1166105513/34002.gif

[img]http://www.uploadagent.de/files/1166105513/34002.gif[/img]

Gruss Werner

Hi habe es mit General und Number probiert!

Gruß

Stefan

Hallo Stefan

Schau mal in diesen Link

http://www.uploadagent.de/files/1166107711/PLZ__CH.xls


Vielleich kannst Du auch eine abgespeckte Version hochladen.

Gruss Werner

• Kontroll-Pfeil bei Filter
• Filter erstellen
• Spam Filter
• Aktive Filter in Excel erkennen (VBA)
• excel vba filter reset