Hallo an die Profis,
ich habe folgendes Problem bei folgendem Excel-Makro:
TEIL 2 funktioniert nicht in Bezug auf den Filter zweier unterschiedlicher Spalten, einmal mit "<Datum" und einmal mit ">Datum". Es kommt keine Fehlermeldung, jedoch bleibt nichts Gefiltertes übrig (alle Zeilen leer) und in der Zelle R2 wird daher der Betrag 0 ausgegeben.
(Das Filtern mit den beiden Datumsangaben habe ich durch ein aufgezeichnetes Makro übernommen.)
Darüber hinaus hätte ich gerne anstatt ein konkretes Datum den Bezug auf eine Zelle oder eine Zelle mit Namen (Namensmanager).
Ich hoffe, ihr könnt mir weiterhelfen.
Vielen Dank.
Cri
Sub Filter_mit_Datum ()
'1. TEIL FUNKTIONIERT
ActiveSheet.Range("A1:Q1").AutoFilter Field:=3, Criteria1:="2"
ActiveSheet.Range("A1:Q1").AutoFilter Field:=8, Criteria1:="EUR"
ActiveSheet.Range("A1:Q1").AutoFilter Field:=6, Criteria1:= _
xlFilterLastMonth, Operator:=xlFilterDynamic
'In Zelle R2 wird die Summe aus entspr. Spalte eingefügt
[R2] = WorksheetFunction.Sum([G:G].SpecialCells(xlCellTypeVisible))
'Inhalt von Zelle R2 (Summe) wird in Anderes Sheet eingefügt
Range("R2").Select
Selection.Copy
Worksheets("Anderes_Sheet").Activate
Range("Tilgung_2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").ShowAllData
' 2. TEIL - DATUM-FILTER FUNKTIONIERT NICHT - Die ersten beiden Criterias schon, aber die mit dem Datum nicht:
Worksheets("Tabelle1").Activate
ActiveSheet.Range("A1:Q1").AutoFilter Field:=3, Criteria1:="2"
ActiveSheet.Range("A1:Q1").AutoFilter Field:=8, Criteria1:="EUR"
ActiveSheet.Range("A1:Q1").AutoFilter Field:=1, Criteria1:="<01.08.2022", Operator:=xlAnd
ActiveSheet.Range("A1:Q1").AutoFilter Field:=6, Criteria1:=">31.07.2022", Operator:=xlAnd
'In Zelle R2 wird die Summe aus entspr. Spalte eingefügt
[R2] = WorksheetFunction.Sum([G:G].SpecialCells(xlCellTypeVisible))
'Inhalt von Zelle R2 (Summe) wird in anderes Sheet eingefügt
Range("R2").Select
Selection.Copy
Worksheets("Anderes_Sheet").Activate
Range("Umlauf_Monatsende_2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub