Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gewähltes Filterkriterium in Zelle ausgeben

Gewähltes Filterkriterium in Zelle ausgeben
08.08.2003 11:58:05
wolf
Hallo zusammen,
gibt es eine Möglichkeit, dass ich das gewählte Filterkriterium in
einer Zelle angezeigt bekomme.
Dachte da z.B. als Überschrift wie:
Daten sortiert nach "Januar".
Danke für Eure Hilfe,
Wolf

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gewähltes Filterkriterium in Zelle ausgeben
08.08.2003 12:14:49
Ramses
Hallo,
das könnte dir helfen:
'Autofilterkriterien in einer Zelle darstellen
'Aufruf über =Filterkriterien(Zelle in der Spalte) wo der Filter gesetzt wurde

Function FilterKriterien(rng As Range) As String
'By Stephen Bullen
Dim Filter As String
Filter = ""
On Error GoTo Finish
With rng.Parent.AutoFilter
If Intersect(rng, .Range) Is Nothing Then GoTo Finish
With .Filters(rng.Column - .Range.Column + 1)
If Not .On Then GoTo Finish
Filter = .Criteria1
Select Case .Operator
Case xlAnd
Filter = Filter & " UND " & .Criteria2
Case xlOr
Filter = Filter & " ODER " & .Criteria2
End Select
End With
End With
Finish:
FilterKriterien = Filter
End Function

Gruss Rainer

Anzeige
AW: Gewähltes Filterkriterium in Zelle ausgeben
08.08.2003 12:50:41
wolf
Danke für die Hilfe,
noch eine Frage, da ich mich mit Makros nicht so gut auskenne:
Makro hab ich zwar eingefügt, aber was bedeutet
=Filterkriterien(Zelle in der Spalte) wo der Filter gesetzt wurde???
Was muss ich da einstellen, oder defninieren?
Ist das eine Formel, die ich einfügen soll???
Danke,
Wolf

AW: Gewähltes Filterkriterium in Zelle ausgeben
08.08.2003 13:11:56
th.heinrich
hallo Wolf,
der CODE von Rainer ist eine FUNKTION, die kannst Du ueber den FUNKTIONSASSI unter BENUTZERDEFINIERT aufrufen.
gruss thomas

AW: Gewähltes Filterkriterium in Zelle ausgeben
08.08.2003 13:24:19
Ramses
Hallo,
die Funktion in ein Modul deiner Mappe kopieren und folgendermassen aufrufen
@Rainer
08.08.2003 13:21:57
th.heinrich
hallo Rainer,
moeglicherweise in diesem zusammenhang interessant.
ich habe mal mit GROSSER hilfe von Hans folgendes zusammengebastelt. wimmelt allerdings von SELECT das war mein zutun ;-)

Sub FilterAuslesen()
Dim intcol As Integer
Dim strcriteria As String
'Application.Goto Reference:="Kriterien2"
'Selection.ClearContents
'Application.Goto Reference:="Kriterien1"
'Selection.ClearContents
ScreenUpdating = False
Sheets("statistik").Select
Range("a14").CurrentRegion.Select
Selection.ClearContents
Selection.ClearComments
Sheets("DB_PT-Standard").Select
Range("a13").Select
intcol = 1
Do Until IsEmpty(Cells(13, intcol))
With ActiveSheet.AutoFilter.Filters(intcol)
If .On Then
On Error Resume Next
strcriteria = .Criteria1 '& .Criteria2
strcriteria = strcriteria & .Criteria2
'Else
'strcriteria = .Criteria1 Or .Criteria2
On Error GoTo 0
Worksheets("statistik").Cells(14, intcol).Value = strcriteria
End If
End With
intcol = intcol + 1
Loop
Range("a14").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("statistik").Range("a15")
Sheets("statistik").Select
Call Makro1
Range("w15").Select
ActiveWindow.SmallScroll ToRight:=4
ScreenUpdating = True
End Sub

schaut zwar fuerterlich aus, aber der CODE liest alle AUTOFILTERKRITERIEN aus.
gruss thomas
ps. vielleicht hast Du ein paar anregungen zur optimierung.

Anzeige
Ich kucks mir an,....
08.08.2003 13:27:44
Ramses
Hallo Thomas,
... aber jetzt ist erstmal baden angesagt.
Gruss Rainer

bitte nicht absaufen ;-)) ot.
08.08.2003 13:30:34
th.heinrich
.

AW: @Rainer
08.08.2003 22:42:48
Ramses
Hallo Thomas,
Dein code ist im Prinzip ähnlich aufgebaut wie meiner zum auslesen der Kriterien,
Es gäbe schon ein klein wenig zu optimieren, aber das ist nur Wischi-Waschi-Kosmetik,.. will heissen, dass man eigentlich nichts ändern müsste.
z.B.
strcriteria = .Criteria1 '& .Criteria2
strcriteria = strcriteria & .Criteria2
lässt sich ja nun wirklich zusammenfassen, in der ersten Zeile hast du die gleiche Anweisung wie in Zeile 2, nur hast du sie auskommentiert.
Aber eben,... prinzipiell gut :-)), .... Sehr gut ;-)
Gruss Rainer

Anzeige
stolz :-))
09.08.2003 11:10:53
th.heinrich
hallo Rainer,
danke fuer die blumen, aber wie gesagt das mit der KRITERIENAUSWAHL stammt von Hans.
zu Deinem hinweis. ich kann mich nicht mehr genau erinnern, aber die anweisung der 1. zeile lief nicht, deswegen auskommentiert. was solls, NTaRS.
schoenes WE von thomas

169 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Autofilter - "Enthält" in Zelle
daniel

Hallo Forum.
ich habe eine Tabelle, in A1 die Artikelnummer und in B1 die Artikelbezeichnung (3000 Zeilen)
Der Autofilter funktioniert mit "Benutzerdefiniert" und "enthält" recht gut...
nur würde ich gerne eine Zelle als Suchkriterium nutzen.
Bsp. Wenn ich in C3 nun das Wort Far...
07.11.2008 11:21:00
Thread-ID: 1022589
2 Beiträge
Wert vom ausgewählten Filter in Zelle
Kurt

Hallo nochmal,
ich möchte gern den Wert vom Filter in die Zelle N1 setzen.
Hatte dies
Selection.AutoFilter Field:=4, Criteria1:=wert
ActiveSheet.Range("N1").Select = wert
mfg Kurt P
01.12.2008 15:41:00
Thread-ID: 1029285
3 Beiträge
Anzeige
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Zelleneinträge in Filterauswahl
Leitz

Hallo!
Komme mit dem Einfügen von Werten aus VBA Speicher in Filterauswahl nicht zurecht.
Selection.AutoFilter Field:=12, Criteria1:=""
Nun möchte ich in die Zellen der Spalte D den Speicherinhalt von "strBearbeiter" einfügen
Wie lautet der Code, so dass nur die gefilterten Zei...
10.03.2009 08:28:50
Thread-ID: 1058462
5 Beiträge
gefilterte Zeilen aus TB1 in TB2 anzeigen lassen
Kellerkind42

Hallo.
Ich filtere in Tabelle1, ab Zeile 6 Daten.
Wie kann ich mir per Formel die gefilterten Daten in Tabelle2 anzeigen lassen?
Gruß Reinhardt.
19.03.2009 12:40:16
Thread-ID: 1061805
2 Beiträge
Hyperlink Ziel Zelle farbig anzeigen!
Wolfgang

Hallo,
benutze Hyperlinks um mich im Dokument zu bewegen.
Frage wenn ich nun zu Blatt 1 nach A32 springe, kann ich dann A32 farbig anzeigen lassen, und geht dann die Farbe wieder weg?
Vielen Recht herzlichen Dank für Eure Mühe.
Wolfgang
26.03.2009 08:30:54
Thread-ID: 1064093
5 Beiträge
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge

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
7
1
2
2
5
4
1
4
8
2
2
1
3
2
6
5
2
1
3
1
2
1
1
2