Vergleichen mit mehreren Bedingungen

Hallo zusammen,
ich stehe wieder einmal vor einer Herausforderung bei der ich um eure Unterstützung bitte.
Zur einfachen und schnellen Verständigung habe ich euch ein Bild hochgeladen.
Ich habe eine große Pivot Tabelle in der verschiedene Daten stehen. Diese Pivot Datei wird jede Woche neu erstellt. Mit dieser neu erstellten Datei wird diese 1 x die Woche analysiert, d.h. jede Woche wiederkehrende Ausführungen. Mit Excel Formeln habe ich mein Ziel nicht einmal ansatzweise hinbekommen. Ich hoffe Ihr könnt mir dabei helfen.
Beim Ausführen des Makros soll es folgendes tun:
Betrachte Bereich A2 bis A5000.
Lese erstmal A2 aus. Wenn in A2 "V1" steht dann springe zu Nebenspalte von V1 (also zu FM), Wenn in A2 "V2" steht dann springe zu Nebenspalte von V2 (also zu FO), Wenn in A2 "V3" steht dann springe zu Nebenspalte von V3 (also zu FQ), Wenn in A2 "V4" steht dann springe zu Nebenspalte von V4 (also zu FS), Wenn in A2 "V5" steht dann springe zu Nebenspalte von V5(also zu FU) und vergleiche das Datum welches in dieser Zelle (also ZielDat.) steht mit dem aktuellen Datum + 1 Monat. Wenn das Datum in dieser Zelle das aktuelle Datum + 1 Monat übersteigt, dann nichts unternehmen.
Wenn es nicht übersteigt, dann komplette Zeile gelb füllen.
Lese A3 aus....usw
Und zum Schluss alle Gelb gefüllten Zeilen Filtern (sodass nur die gelb gefüllten Zeilen) angezeigt werden.
Wenn in den Zellen von A2 bis A5000 alles andere als V1,V2,V3,V4,V5 steht, dann nichts unternehmen.
Diese Prozedur soll für alle Zellen bis A5000 ausgeführt werden.
Anbei der Link zum Bild:
Userbild

Besten Dank an alle die etwas beitragen
Grüße
Memo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Filtern() Dim cell, Zielzelle As Range For Each cell In Range("A:A").SpecialCells(xlCellTypeConstants) If cell.Value = "V1" Or cell.Value = "V2" Or cell.Value = "V3" Or cell.Value = "V4" Or cell. _ Value = "V5" Then Set Zielzelle = Range("1:1").Find(cell.Value) If Year(Zielzelle.Offset(cell.Row - 1, 1)) & Format(Month(Zielzelle.Offset(cell.Row - 1, _ 1)), "0#")

Sub Filtern() Dim cell, Zielzelle As Range Dim ws As Worksheet ActiveSheet.Copy Set ws = ActiveSheet With ws For Each cell In .Range("A:A").SpecialCells(xlCellTypeConstants) If cell.Value = "V1" Or cell.Value = "V2" Or cell.Value = "V3" Or cell.Value = "V4" Or _ cell.Value = "V5" Then Set Zielzelle = .Range("1:1").Find(cell.Value) If Year(Zielzelle.Offset(cell.Row - 1, 1)) & Format(Month(Zielzelle.Offset(cell.Row - _ 1, 1)), "0#")

Hi Daniel,
Ich habe die Pivot Tabelle ein wenig geändert, Zeile 1 entfert, und den Code erneut durchlaufen lassen. Diesmal hat es funktioniert jedoch nur teilweise. Er bringt mir nur 1 Gelb gefärbte Zeile obwohl er einige mehrere bringen müsste. Danach kommt diese Fehlermeldung:
"Objektvariable oder With-Blockvariable nicht festgelegt. Laufzeitfehler '91'"
Wahrscheinlich lassen zuvor programmierte Makros die Bearbeitung dieser Pivot nicht zu. Dies könnte man vielleicht umgehen indem der Code das Ergebnis dieser Pivot als eine separate Excel Datei (ohne Makro) zur Verfügung stellt und der Benutzer nur den Speicherort und name zu wählen hat.
Gerne würde ich die Pivot hier hochladen aber es ist sehr groß, daher habe ich den zu betrachtenden Bereich als unveränderte Variante als Jpeg hochgeladen.
Bereich M:M ist zu vergleichen mit Bereich CD:CD; CF:CF;..immer die (Plan) Zeilen.
Besten Dank für deine genommene Zeit und die Unterstützung.
Userbild

VG
Memo

Beliebteste Forumthreads (12 Monate)

Vergleichen mit mehreren Bedingungen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vergleichen mit mehreren Bedingungen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread