Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter setzen mit Klick auf Zelle

Forumthread: Filter setzen mit Klick auf Zelle

Filter setzen mit Klick auf Zelle
29.03.2015 11:59:40
Matti

Hallo liebe Experten,
Ich habe ein großes Problem, welches für euch vermutlich winzig klein ist...
Ich habe ein Tabellenblatt "Start" und ein Tabellenblatt "Filter".
Ich möchte au dem Filterblatt in Spalte A einen Filter setzen durch folgende Aktion:
Das Makro sollte nur starten wenn auf dem Startblatt eine Zelle in Spalte B angeklickt wird (darf nicht leer sein). Der Filterwert für das Filterblatt soll aber nicht die angeklickte Zelle sein sondern der Wert in Spalte T in der Zeile der angeklickten Zelle.
Das übersteigt leider meine Kenntnisse...Ich freue mich über jeden kleinen Hinweis!
Vielen Dank,
Matti

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter setzen mit Klick auf Zelle
29.03.2015 12:09:21
Nepumuk
Hallo,
in das Modul der Tabelle Start:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Count = 1 Then
            If Not IsEmpty(Target.Value) Then
                Call Worksheets("Filter").Rows(1).AutoFilter( _
                    Field:=1, Criteria1:=Cells(Target.Row, 20).Value)
            End If
        End If
    End If
End Sub


Gruß

Nepumuk
Anzeige
AW: Filter setzen mit Klick auf Zelle
29.03.2015 12:42:11
Matti
Oh wow, das ging ja schnell, werde ich testen und mich wieder melden!
Vielen lieben Dank Nepumuk!!

;

Forumthreads zu verwandten Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
Wieviele Zellen im Range sind NICHT leer
Mandy

Hi.
wie kann ich denn ein Range C3:C13 auf meinem Sheet "Daten" so abfragen, damit ich in einem Label stehen habe, wieviel von diesen Zellen noch leer sind, sprich noch keinen Inhalt haben ?
Danke Mandy
12.02.2009 14:48:00
Thread-ID: 1050080
6 Beiträge
Leere und Nichtleere Zellen einer Spalte rechnen
Urmila

Hallo,
habe ien Problem, ich habe eine Liste, in Spalte A stehen Werte (Zahlen), in der Spalte B stehen Namen.
Nun will ich, dass er mir in der Zelle D1 alle Werte aus spalte A ausrechnet, wo die Zellen in Spalte B Inhalte haben, und in Zelle E1 wo kein Inhalt steht.
Ich hoffe ich k...
30.06.2009 12:41:41
Thread-ID: 1085323
4 Beiträge
VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
makro autofilter mit Eingabebox setzen
Ramon

Hallo zusammen,
ich habe eine Liste erstellt, die als Ersatzteilliste für verschiedene ( mittlerweilen 28 verschiedene)Maschinentypen benutzt werden soll.
Die Liste enthält mittlerweilen ca 3000 Datensätze zu den einzelnen Materialien.
Viele der Materialien werden in mehreren Maschi...
11.10.2013 12:53:34
Thread-ID: 1334074
4 Beiträge
VBA Autofilter zurücksetzen wenn!
Thomas

Hallo zusammen!
Ich habe per VBA den Autofilter in meiner Tabelle gesetzt und es funktioniert auch wenn ich in A1 den Suchbegriff eintrage aber ich muss wenn ich alles sehen möchte den Filter von Hand zurücksetzten.
Wie kann man das auch per Code erreichen wenn A1 = "" oder aber "alle"...
16.05.2014 14:55:57
Thread-ID: 1361949
6 Beiträge
Anzeige
Trotz Clear/Clearcontents Zellen nicht leer?
Andre

Hallo liebe Excel-Gemeinde!
Ich habe folgendes Problem:
In ein Tabellenblatt lasse ich per Makro und Spezialfilter eine Liste einfügen. Hierfür habe ich den Bereich A2:N1001 eingeplant. In Zeile 1 stehen die Überschriften, in O1:Q43 noch eine kleine Tabelle, welche Zahlen berechnet, die...
03.09.2014 13:24:42
Thread-ID: 1379718
7 Beiträge
In VBA Autofilter mit spitzer Klammer setzen
Chris

Hallo allerseits,
in einer Tabelle habe ich eine Spalte mit Autofilter. Die Werte des Autofilters sind Höhenangaben wie z.B. "1 m", "2 m", aber es kommt auch der Wert "> 5 m" vor, sprich größer wie 5 Meter.
In VBA setze ich den Autofilter mit der Variable "wert"
ActiveSheet.Range...
05.12.2014 11:21:09
Thread-ID: 1396296
3 Beiträge
Zelle rot wenn darunterliegenden Zellen NICHT leer
Janine

Hilfe!
Meine Spalte 'Pool Availability' soll sich pro Zelle rot färben wenn alle darunterliegenden Zellen einen Wert enthalten. Sobald aber eine der darunterliegenden Zellen frei ist soll sich die 'Pool Availability'-Zelle wieder grün färben, bzw entfärben (grün kann ich die ja immer noch s...
30.06.2015 08:16:09
Thread-ID: 1433959
2 Beiträge
Mit Makro Filter setzen bei Pivot-Tabellen
Nicole

Hallo Leute ich hätte eine Frage.
Folgendes Problem ich hab eine Pivottabelle, die mir beim Filtern der Materialnummern meine Daten wiedergibt. Jedoch reden wir hier von mehreren 1000 von Nummern.
So jetzt hatte ich mir gedacht, dass man im ersten Tabellenblatt einfach nur die Materialn...
12.02.2016 12:48:16
Thread-ID: 1475076
13 Beiträge
Mit Makro Filter setzen bei Pivot-Tabellen
Nicole

An MICHAEL (MIGRE)
Sie haben mir schon einmal eine Antwort zu dem Thema geschrieben, leider war ich jetzt im Urlaub und mein Beitrag ist im Archiv gelandet.
Könnten Sie sich bitte bei mir melden!?
29.02.2016 11:02:24
Thread-ID: 1478734
5 Beiträge
Anzeige

Infobox / Tutorial

Filter setzen mit Klick auf Zelle

Schritt-für-Schritt-Anleitung

Um einen Excel-Filter zu setzen, wenn eine Zelle angeklickt wird, kannst du das folgende VBA-Makro verwenden. Dieses Beispiel setzt den Filter auf einem Tabellenblatt namens "Filter", basierend auf dem Wert einer Zelle in Spalte T des Tabellenblattes "Start".

  1. Öffne die Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Doppelklicke auf das Arbeitsblatt "Start" im Projekt-Explorer.

  3. Füge den folgenden Code in das Modul ein:

    Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Column = 2 Then ' Spalte B
       If Target.Count = 1 Then
           If Not IsEmpty(Target.Value) Then
               Call Worksheets("Filter").Rows(1).AutoFilter( _
                   Field:=1, Criteria1:=Cells(Target.Row, 20).Value) ' Spalte T
           End If
       End If
   End If
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Klicke auf eine Zelle in Spalte B des "Start"-Blattes, um den Filter zu aktivieren.

Häufige Fehler und Lösungen

  • Fehler: Der Filter wird nicht gesetzt.

    • Lösung: Stelle sicher, dass du auf eine Zelle in Spalte B klickst, die nicht leer ist. Der Code prüft, ob die Zelle leer ist, bevor der Filter gesetzt wird.

  • Fehler: Der Filter wird nicht auf das richtige Blatt angewendet.

    • Lösung: Überprüfe den Namen des Arbeitsblatts im Code (Worksheets("Filter")). Stelle sicher, dass der Name exakt übereinstimmt.

Alternative Methoden

Falls du keine VBA-Makros verwenden möchtest, kannst du die Filterfunktion auch manuell einfügen:

  1. Markiere die Zellen, die gefiltert werden sollen.
  2. Gehe zu Daten > Filter > Filter einfügen.
  3. Setze die Filterkriterien manuell.

Dies ist jedoch weniger dynamisch als die Verwendung eines Makros.

Praktische Beispiele

  • Beispiel 1: Wenn du in Zelle B2 auf dem "Start"-Blatt klickst und der Wert in T2 "WertA" ist, wird der Filter auf dem "Filter"-Blatt so gesetzt, dass nur die Zeilen mit "WertA" in Spalte A angezeigt werden.

  • Beispiel 2: Wenn du in Zelle B3 klickst und T3 den Wert "WertB" hat, wird der Filter entsprechend aktualisiert.

Tipps für Profis

  • Du kannst das Makro anpassen, um mehrere Filterkriterien zu setzen oder zusätzliche Spalten zu filtern.
  • Verwende die Funktion Application.ScreenUpdating = False am Anfang des Makros und Application.ScreenUpdating = True am Ende, um die Leistung zu verbessern und das Flackern des Bildschirms zu vermeiden.
  • Experimentiere mit weiteren VBA-Funktionen, um mehr Flexibilität beim Filtern in Excel zu erhalten.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um mehrere Spalten zu filtern?
Du kannst zusätzliche AutoFilter-Befehle im Makro hinzufügen, um weitere Kriterien für andere Spalten zu setzen.

2. Was sind Push-Zellen?
Push-Zellen sind Zellen, die durch eine Aktion (wie das Klicken auf eine andere Zelle) aktualisiert oder verändert werden. In diesem Fall wird der Wert in Spalte T als Filterkriterium verwendet.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige