Suchfenster erstellen

[Fuzzy62]

Hallo gogerry,

ja das kannst du machen, du musst den Code in VBA ins  Tabellenblatt kopieren, und einen Filter auf die Tabelle, setzen! 

Zeile 1. dient dazu die Tabelle zu filtern.

[gogerry]

Hallo Fuzzy62,
leider klappt das nicht mit dem kopieren. Ich kenne mich allerdings auch nicht mit VBA aus.
Könntest du mir anhand deines Beispiels eine kurze Anleitung für diese Aktion geben:
Code in VBA ins Tabellenblatt kopieren und einen Filter auf die Tabelle setzen

Vielen Dank

[RPP63]

Moin!
Sehe es mal so:
Du kennst die absoluten Basics wie Filter und (eingeschränkt) Datenschnitt nicht und möchtest jetzt VBA verwenden, von dem Du gleich überhaupt keine Ahnung hast?
Mutig!
(der Japaner nennt das Harakiri)

Disclaimer:
Obiges mag sich ja böse anhören, ist aber wirklich als ernstgemeinte Hilfe gedacht!
Der Filter oder auch der Datenschnitt sind mächtige Hilfsmittel!

Schaue Dir doch zunächst mal folgende Hilfeseite an (sogar mit Video …):
https://support.microsoft.com/de-de/offi...e9a88f6a96

Gruß Ralf

[gogerry]

Hi, hab es rausbekommen und konnte dein Beispiel in die Tabelle kopieren. Jetzt funktioniert es. Danke

[Glausius]

Hallo Klaus (Fuzzy62),

tolle Lösung - nur filtert dein Muster leider nicht nach dem Preis! Was stimmt da nicht oder fehlt?

[Fuzzy62]

Hallo Günther,

den Code habe ich vor Jahren mal im Netz gefunden, (also nicht von mir).

Warum er den preis nicht filtert, verstehe ich auch nicht. Zahlen, ja aber den Preis leider nicht!

[Elex]

Hallo

Zeile 1 sollte erstmal die selben Formate wie die Daten bekommen.
Verwendet für Zahlen dann die Codezeile.
Criteria1:="=" & raZelle.Text

Gruß Elex

[Fuzzy62]

Hallo Elex,


habe deinen Rat befolgt, aber leider ohne erfolg!


'                  Suchkriterium ist eine Zahl
                    If IsNumeric(raZelle) Then
'                      Autofilter für das betreffende Feld setzen, Filterkriterium "entspricht"
                        .AutoFilter Field:=raZelle.Column + 1 - ActiveSheet.AutoFilter.Range(1).Column, _
                            Criteria1:="=" & raZelle.Text
                    Elseif
                          .......

[Elex]

Hallo

bevor ich die Datei hochlade in der es klappt, erst noch mal eine Rückfrage.
Hast du auch den Punkt erledigt. (Zeile 1 sollte erstmal die selben Formate wie die Daten bekommen.)

Gruß Elex

[Fuzzy62]

Hallo Elex,

habe die ganze Zeile 1 das gleiche Format zugewiesen!

klappt leider nicht!