Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1684to1688
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
Inhaltsverzeichnis

Filtern

Filtern
02.04.2019 08:17:14
René
Hallo liebe Profis,
vielleicht kann mir jemand helfen.
Kann man diese zwei Filter so zusammenbasteln das wirklich nur die gewünschten Begriffe (Wörter) aus den Zellen B2 und C3 nach Datumseingrenzung gefiltert werden. Es funktioniert ja so weit, aber unter dem Filter stehen immer noch weitere Daten, die aber ausgeblendet sein sollen.
With Application
iCalc = .Calculation
.ScreenUpdating = False
.Calculation = xlCalculationManual
With Tabelle1
If .FilterMode Then .ShowAllData
.Cells.EntireRow.Hidden = False
Set rngBereich = .Range("B6", .Cells(.Rows.Count, 2).End(xlUp)).Resize(, 8)
End With
With rngBereich
.Columns(.Columns.Count).FormulaR1C1 = "=IF(AND(RC2=R2C2,OR(RC3=R2C3,RC4=R2C3,RC5=R2C3,RC6=R2C3,RC7=R2C3,RC8=R2C3,RC9=R2C3)),ROW(),TRUE)"
rngBereich.Sort .Cells(2, .Columns.Count), xlAscending, Header:=xlNo
On Error Resume Next
.SpecialCells(xlCellTypeFormulas, 4).EntireRow.Hidden = True
.Columns(.Columns.Count).Clear
On Error GoTo 0
End With
'zweiter Filter
.Calculation = iCalc
.ScreenUpdating = True
End With
Dim strDateFrom As String, strDateTo As String
With Worksheets("Daten")
strDateFrom = CStr(CLng(.Range("B4").Value))
strDateTo = CStr(CLng(.Range("C4").Value))
End With
Worksheets("Daten").Rows(5).AutoFilter Field:=4, Criteria1:=">" & strDateFrom - 1 _
, Operator:=xlAnd, Criteria2:=" Außerdem habe ich das Problem das, dass Datum aus dem Datepicker ausgelesen wird. Das funktioniert nicht, auch nicht wenn ich mit LinkedCell arbeite.
Beste Grüße und einen sonnigen Tag
René

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filtern
02.04.2019 12:33:34
René
Hallo,
ist erledigt. Habe es gefunden.
.SpecialCells(xlCellTypeFormulas, 4).EntireRow.Hidden = True
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige