Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
664to668
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

AutoFilter Kriterium als Zelleninhalt - Format

AutoFilter Kriterium als Zelleninhalt - Format
13.09.2005 10:33:29
Fritz
Hallo Herber-Forum,
dank' der Funktion

Function Filterkriterium(Spalte As Long) As String
'Gibt Filterkriterium in Zelle aus. Eingabe: =Filterkriterium(1) etc (1=SpalteA)
Application.Volatile
If ActiveSheet.AutoFilter.Filters(Spalte).On Then
Filterkriterium = ActiveSheet.AutoFilter.Filters(Spalte).Criteria1
Else
Filterkriterium = "---"
End If
End Function

kann ich nun meine ausgewählten Filterkriterien in einer Zelle ausgeben. Nochmals Danke an das Forum und den Verfasser.
Nunmehr habe ich eine Frage zur Formatierung dieser Funktion:
Die gefilterte Spalte besitzt das Format "Datum", dass Filterkriterium lautet:
größer oder gleich 01.09.2005. Als Ergebnis der o.g. Funktion bekomme ich z.B. in "B1": ">=38596", was ja auch richtig ist.
Gibt es eine Möglichkeit - evtl. mit einer Hilfsspalte - dieses Ergebnis der Zelle "B1" im Format: "größer oder gleich 01.09.2005" auszugeben?
Bereits jetzt vielen Dank für die Hilfe.
Fritz Olbers :-)

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

Betreff
Datum
Anwender
Anzeige
AW: AutoFilter Kriterium als Zelleninhalt - Format
13.09.2005 14:05:12
luschi
Hallo Fritz,
hier 1 Erweiterung der Funktion. Nach dem Ermitteln des Filterkriteriums werden die Beziehungszeichen (= usw.) ermittelt und die restliche Zahl. Die Zahl wird in 1 Datum zurückverwandelt.
Function Filterkriterium(Spalte As Long) As String
'Gibt Filterkriterium in Zelle aus. Eingabe: =Filterkriterium(1) etc (1=SpalteA)
Dim s1 As String, s2 As String, s3 As String, i1 As Integer, i2 As Integer
Application.Volatile
If ActiveSheet.AutoFilter.Filters(Spalte).On Then
s1 = ActiveSheet.AutoFilter.Filters(Spalte).Criteria1
Else
s1 = "---"
End If
If s1 <> "---" Then
i1 = Len(s1)
s2 = ""
For i2 = 1 To i1
s3 = Mid(s1, i2, 1)
If Not IsNumeric(s3) Then
s2 = s2 & s3
Else
Exit For
End If
Next i2
s3 = Mid(s1, i2)
s1 = s2 & " " & CDate(s3)
End If
Filterkriterium = s1
End Function

Gruß von Luschi
aus klein-Paris
Anzeige
AW: AutoFilter Kriterium als Zelleninhalt - Format
14.09.2005 10:40:28
Fritz
Hi Luschi,
vielen Dank für Deine Hilfe. Klappt super!!!!
Darf ich jetzt unverschämt sein, allein komme ich nicht weiter. Funktioniert
Deine Funktion auch mit einem 2. Kriterium? Ohne die Datumsformatierung bekomme ich es hin:

Function Filterkriterium(Spalte As Long) As String
Application.Volatile
If ActiveSheet.AutoFilter.Filters(Spalte).On Then
'1. Filterkriterium & 2. Filterkriterium
Filterkriterium = ActiveSheet.AutoFilter.Filters(Spalte).Criteria1 _
& " " & ActiveSheet.AutoFilter.Filters(Spalte).Criteria2
Else
Filterkriterium = "---"
End If
End Function

Wäre echt klasse, wenn Du da auch eine Lösung parat hättest.
Viele Grüsse aus Oberhausen, der Wiege der Ruhrindustrie, an Klein-Paris.
Fritz :-)
Anzeige
AW: AutoFilter Kriterium als Zelleninhalt - Format
15.09.2005 08:08:49
Luschi
Hallo Fritz,
muß ich das 2. Kriterium auch auf Datum testen?
Gruß von Luschi
aus klein-Paris
AW: AutoFilter Kriterium als Zelleninhalt - Format
15.09.2005 17:28:09
Fritz
Hi Luschi,
sorry, war nicht präzise genug. Ja, ich möchte einen Zeitraum filtern, also
vom 15.09.2005 - 20.09.2005 (Criteria1:=">=15.09.2005", Criteria2:=" Nochmals Danke für die Hilfe.
Fritz :-)
AW: AutoFilter Kriterium als Zelleninhalt - Format
15.09.2005 22:38:32
Luschi
Hallo Fritz,
da der Vba-Code doch (etwas) mehr geworden ist, schicke ich Dir folgende Datei
mit 1 paar Hinweisen:
https://www.herber.de/bbs/user/26619.xls
Viel Spaß bein Code-Lesen/Verstehen wünscht
Luschi
aus klein-Paris
Anzeige
AW: AutoFilter Kriterium als Zelleninhalt - Format
16.09.2005 13:11:17
Fritz
Hallo Luschi,
vielen Dank für Deine Hilfe. Das ist einfach phantastisch.
Sag' mal: Ich kenne Groß-Paris, ich kenne Paris (Hilton), aber
wo ist klein-Paris?
Nochmals vielen Dank und ein schönes Wochenende.
Fritz :-)
aus dem herbstlich werdenden Oberhausen
AW: AutoFilter Kriterium als Zelleninhalt - Format
16.09.2005 13:22:43
Fritz
Habe irrtümlich "Frage noch offen" angeklickt und komme mit meinem Passwort nicht weiter!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige