Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter in Tabelle per VBA setzen

Filter in Tabelle per VBA setzen
20.08.2020 13:05:10
Johnnn
Grüße an alle,
Ich bin ein wenig aufgeschmissen & hoffentlich kann mir hier jemand helfen. Im Folgenden will ich lediglich eine Variable aus Sheet A kopieren und nach diesem Wert in meiner Tabelle in Sheet B filtern. Sheet A ist also quasi ein Dashboard in dem man Werte einträgt & die einem dann in Sheet B angezeigt werden. Das ganze findet im gleichen Workbook statt
Ich habe mir also folgenden VBA-Code geschrieben:
Dim KriteriumA As String
KriteriumA = Workbooks("JF_Agenda_Vorlage.xlsm").Worksheets("Dashboard").Cells(4, 8)
Workbooks("Jf_Agenda_Vorlage.xlsm").Worksheets("Agenda").Select
Selection.End(xlUp).Select
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=2, Criteria1:=KriteriumA
Jedoch wird die Tabelle in Sheet B immer nach "Leer" gefiltert, obwohl in der entsprechenden Zelle ein Wert eingetragen ist.... Was mache ich falsch?
LG

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter in Tabelle per VBA setzen
20.08.2020 13:35:54
Werner
Hallo,
den Umweg über eine Variable brauchst du doch gar nicht, du kannst doch den Filterbegriff direkt aus der Zelle holen.
Für was das .End(xlup) gut sein soll, erschließt sich mir nicht.
Kann es sein, dass du bei deiner Cells Angabe Zeilennummer und Spaltennummer verwechselst?
Cells(4, 8) = Zelle D8 
Public Sub Filter_kopieren()
With Worksheets("Agenda")
If WorksheetFunction.CountIf(.Columns(2), Worksheets("Dashboard").Cells(4, 8)) > 0 Then
.ListObjects("Tabelle1").Range.AutoFilter Field:=2, Criteria1:=Cells(4, 8)
.Activate
Else
MsgBox "Fehler: Der Suchbegriff " & Cells(4, 8) & " wurde im Blatt Agenda nicht  _
gefunden."
End If
End With
End Sub
Gruß Werner
Anzeige
AW: Filter in Tabelle per VBA setzen
20.08.2020 13:50:06
Johnnn
Vielen Dank für deine Antwort.
Das .End(xlup) kam durch den Makro-Recorder, ich hatte mir den letzten Teil des Codes aus diesem herausgezogen. Die Angaben der Zeilen- & Spaltennummern habe ich nicht verwechselt, in diesem konkreten Fall geht es tatsächlich um die Zelle "D8".
Vielen Dank auch für deinen Code, es scheint jedoch, dass Excel den Wert aus Zelle D8 im Worksheet "Dashboard" nicht in der Tabelle1 im Worksheet "Agenda" findet... ich bekomme jedenfalls eine Fehlermeldung ausgewiesen, obwohl entsprechende Werte, in der entsprechenden Spalte der Tabelle hinterlegt sind. Ich habe auch andere Werte in der Zelle D8 eingetragen, ich bekomme in jedem Fall eine Fehlermeldung ausgeworfen. Hat jemand eine Idee woran das liegen könnte?
Viele Grüße,
Anzeige
AW: Filter in Tabelle per VBA setzen
20.08.2020 13:51:27
Werner
Hallo,
wahrscheinlich an den Daten, die wir aber nicht kennen.
Lad mal deine Mappe hier hoch.
Gruß Werner
AW: Filter in Tabelle per VBA setzen
20.08.2020 14:02:43
Johnnn
Anbei die Excel, ich habe die Spalten mal mit Dummy-Daten befüllt, dürfte aber dem Zweck keinen Abbruch tun. https://www.herber.de/bbs/user/139728.xlsm
Vielen Dank für die Hilfe!
LG
AW: Filter in Tabelle per VBA setzen
20.08.2020 14:33:29
Werner
Hallo,
oh Mann, jetzt hab ich mich von dir schon anstecken lassen.
Du hast den Suchbegriff in D8 und das ist Cells(8, 4) und nicht Cells(4, 8)
Gruß Werner
AW: Filter in Tabelle per VBA setzen
20.08.2020 14:37:45
Johnnn
Oh man! Jetzt funktioniert der Code :D
Vielen Dank für deine Geduld!
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
20.08.2020 20:43:38
Werner

26 Forumthreads zu ähnlichen Themen

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
Anzeige
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
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
Anzeige
VBA Tabelle filtern
Bettina

Hallo zusammen,
ich hoffe Ihr könnte mir weiterhelfen.
Zur Problemstellung:
In der Tabelle "Daten" werden per Userform unterschiedliche Daten eingegeben.
z.B. In Spalte B stehen Fabrikate, in Spalte C Modell, in Spalte D Größe usw.
Nun möchte ich, dass über ein weiteres User...
08.07.2015 12:27:07
Thread-ID: 1435253
2 Beiträge
Filter setzen in erste volle Zeile
lau

Hallo zusammen,
möchte einen Filter setzen in Spalte C nach dem Datum 2015-08.
Das Filter soll in der ersten vollen Zeile gesetzt werden.
Mit dem Makro:
Sub filtern() Sheets(10).Rows(10).AutoFilter Sheets(10).Rows(10).AutoFilter field:=3, Criteria1:="2015-08" End Sub komme dami...
26.07.2015 19:46:31
Thread-ID: 1438608
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
MICHAEL (MIGRE)- Makro für Filter setzen
Nicole

An Michael,
Sie haben mir vor 2 Wochen schon einmal geholfen. Leider war ich jetzt im Urlaub.
Leider ist mein Beitrag jetzt auch archiviert.
Ich brauche dringend Ihre Hilfe.
Sie haben mir einen Link gesendet zur einer Datei die mit Hilfe eines Makros die Filter in einer Pivot-T...
29.02.2016 12:07:21
Thread-ID: 1478761
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
5
2
3
1
1
12
4
4
6
1
2
2
10
6
5
1
5
6
1
2
8
3
2