Office: (Office 2016) Automatische Aktualisierung Filter anhand 2 Kriterien

Pini · 17. Dezember 2019

Ich bins leider schon wieder.

Ich habe die Datei jetzt ein bisschen umgestellt usw. und den Code entsprechend angepasst. Leider geht es jetzt wieder nicht mehr. Ich dreh hier gleich durch *Smilie

Was habe ich gemacht im code?
C1 ist jetzt B3
D1 ist jetzt B4
wks.Range ("A6") ist jetzt wks.Range ("A11")

Bei B4 habe ich jetzt eine Liste hinterlegt mit dem entsprechenden Datum. Das Datum ist immer der letzte des Monats.

Tabellenblatt umbenannt und 5 Zeilen eingefügt.

Wäre super wenn mir nochmal jemand helfen könnte.

Danke und Gruß
Pini

Mase · 17. Dezember 2019

Hi Pini,

versuchs mal so:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet: Set wks = ThisWorkbook.Worksheets(Target.Parent.Name)
If Not Intersect(Target, wks.Range("B3")) Is Nothing Then
If IsDate(Target.Offset(1, 0).Value) Then
wks.Range("A11").AutoFilter Field:=9, Criteria1:=CStr(Target.Offset(0, 1).Value), Operator:=xlFilterValues
End If
End If
If Not Intersect(Target, wks.Range("B4")) Is Nothing Then
If IsDate(Target) Then
wks.Range("A11").AutoFilter Field:=9, Criteria1:=CStr(Target.Value), Operator:=xlFilterValues
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Pini · 17. Dezember 2019

Genauso sieht mein Code derzeit aus.

Das geht leider nicht.

Mase · 17. Dezember 2019

ne kleine Änderung hat gefehlt:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet: Set wks = ThisWorkbook.Worksheets(Target.Parent.Name)
If Not Intersect(Target, wks.Range("B3")) Is Nothing Then
If IsDate(Target.Offset(1, 0).Value) Then
wks.Range("A11").AutoFilter Field:=9, Criteria1:=CStr(Target.Offset(1, 0).Value), Operator:=xlFilterValues
End If
End If
If Not Intersect(Target, wks.Range("B4")) Is Nothing Then
If IsDate(Target) Then
wks.Range("A11").AutoFilter Field:=9, Criteria1:=CStr(Target.Value), Operator:=xlFilterValues
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Pini · 17. Dezember 2019

Super, nochmal vielen Dank.

Du hast die 0 und 1 getauscht. Verstehe zwar nicht ganz warum, aber es läuft *Smilie

Mase · 17. Dezember 2019

Genau.

Vorhin war es 0,1 (Zellen nebeneinander)
Dann haste umgebaut.
Jetzt isses 1,0 (Zellen untereinander)

Pini · 17. Dezember 2019

Aha, OK. vielen Dank für die Erklärung.

Schönen Resttag noch. Bis dahin ....

Gruß
Pini

Office: (Office 2016) Automatische Aktualisierung Filter anhand 2 Kriterien

Automatische Aktualisierung Filter anhand 2 Kriterien

Automatische Aktualisierung Filter anhand 2 Kriterien

Automatische Aktualisierung Filter anhand 2 Kriterien

Automatische Aktualisierung Filter anhand 2 Kriterien - Similar Threads - Automatische Aktualisierung Filter

Änderung Titel Folie 1 für alle weiteren Folien übernehmen

Dynamische Tabellen mit automatischer Aktualisierung

VBA-Automatische Aktualisierung und Einfügen von kopierten Zellen

Automatisch aktualisierende Tabelle? Hilfe!! :-)

automatische Pivot Aktualisierung mit SAP BW-Daten

Verknüpfung von Powerpoint Folien - automatische Aktualisierung

Kontakte werden automatisch aktualisiert