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.
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
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
Hi, hab es rausbekommen und konnte dein Beispiel in die Tabelle kopieren. Jetzt funktioniert es. Danke
Hallo Klaus (Fuzzy62),
tolle Lösung - nur filtert dein Muster leider nicht nach dem Preis! Was stimmt da nicht oder fehlt?
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!
Hallo
Zeile 1 sollte erstmal die selben Formate wie die Daten bekommen.
Verwendet für Zahlen dann die Codezeile.
Criteria1:="=" & raZelle.Text
Gruß Elex
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
.......
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
Hallo Elex,
habe die ganze Zeile 1 das gleiche Format zugewiesen!
klappt leider nicht!