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é