Clever-Excel-Forum

Hallo,

ich habe in einem Datenblatt eine Tabelle die ich in ein anderes Blatt kopieren und filtern möchte.

In dem Blatt "Auswertung" habe ich 2 Zellen in die ich jeweils ein Datum schreibe. Da drunter soll nun eine Tabelle entstehen die alle Einträge aus der ersten Seite enthält, die innerhalb dieser 2 Datumseingaben liegen.
Sobald man ein Datum ändert, soll sich die Tabelle wieder anpassen.

Mein Code sieht bisher so aus:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngFilter As Range

If Not Intersect(Target, Me.Range("C2:C3")) Is Nothing Then

  Application.EnableEvents = False

  Set rngFilter = Worksheets("Daten").Range("B5").CurrentRegion

  Me.Range("G1:H1").Value = "Datum"

  Me.Range("G2").Value = ">=" & Me.Range("C2").Value

  Me.Range("H2").Value = "<=" & Me.Range("C3").Value

  rngFilter.AdvancedFilter _

                          Action:=xlFilterCopy, _

                          CriteriaRange:=Me.Range("G1:H2"), _

                          CopyToRange:=Me.Range("B5:E5"), _

                          Unique:=False

  Application.EnableEvents = True

  Set rngFilter = Nothing

End If

End Sub

Wäre schön wenn mir da jemand helfen könnte.

Viele Grüße
Michael

Hallo Michael,

so sollte es klappen:

Code:
Dim rngFilter As Range

If Not Intersect(Target, Me.Range("C2:C3")) Is Nothing Then

  Application.EnableEvents = False

  Set rngFilter = Worksheets("Daten").Range("B5").CurrentRegion

  Me.Range("G1:H1").Value = "Datum"

  Me.Range("G2").Value = ">=" & CLng(Me.Range("C2").Value)

  Me.Range("H2").Value = "<=" & CLng(Me.Range("C3").Value)

  rngFilter.AdvancedFilter _

                          Action:=xlFilterCopy, _

                          CriteriaRange:=Me.Range("G1:H2"), _

                          CopyToRange:=Me.Range("B5:E5"), _

                          Unique:=False

  Application.EnableEvents = True

  Set rngFilter = Nothing

End If

End Sub

mw210

atilla