Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1704to1708
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
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filtern Monat/Jahr

Filtern Monat/Jahr
28.07.2019 10:20:21
Gerhard Schreiner

Hallo,
Bitte um VBA Hilfe!
Wie kann ich die Spalte G ab Zelle G4 mit einer dynamischen Länge
mit einer Textbox nach Monat.Jahr Filtern??
siehe Testmappe!
Vielen Dank für Eure Hilfe
Gruß Gerhard
https://www.herber.de/bbs/user/131129.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filtern Monat/Jahr
28.07.2019 10:28:16
Rainer
Hallo Gerhard,
wenn du es als "intelligente Tabelle" formatierst, dann kannst du Jahr und Monat im Filter direkt auswählen!
Warum muss es VBA sein?
Gruß, Rainer
AW: Filtern Monat/Jahr
28.07.2019 11:47:33
onur
Wieso unbedingt mit Textbox?
AW: Filtern Monat/Jahr
28.07.2019 12:07:55
Daniel
Hi
probier mal folgenden Code im Modul des Tabellenblatts mit der Textbox:
Private Sub TextBox1_Change()
Dim strFilter As String
Dim rngBereich As Range
Set rngBereich = Range(Cells(3, 7), Cells(3, 7).End(xlDown))
If TextBox1.Text = "" Then
rngBereich.AutoFilter field:=1
ElseIf TextBox1.Text Like "#.####" Or TextBox1.Text Like "##.####" Then
strFilter = Replace(TextBox1.Text, ".", "/1/")
rngBereich.AutoFilter field:=1, Operator:=xlFilterValues, _
Criteria2:=Array(1, strFilter)
End If
End Sub
Gruß Daniel
Anzeige
AW: Filtern Monat/Jahr
28.07.2019 15:19:40
Gerhard Schreiner
Hallo Daniel
Vielen Dank für Deine Hilfe...
Wenn ich in der Textbox den Monat ändere
bekomme ich immer einen Laufzeitfehler 1004 ???
Was müsste im Code geändert werden ???
Vielen Dank
Gruß Gerhard

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige