Hallo zusammen, ich wende mich heute mit folgender Problematik an euch, in der Hoffnung dass mir jemand helfen kann. In der angefügten Datei sind zwei Registerblätter. Im ersten Registerblatt sind monatsweise Maßnahmen aufgeführt, welche sich in unterschiedlichen Stadien befinden (möglich sind: Status 1-5). Ich möchte jetzt gern auf dem 2 Registerblatt die Maßnahmen gefiltert darstellen. Zum einen alle Maßnahmen die den Status 4 bzw. 5 haben. Separat darunter eine Liste in dem alle überfälligen Maßnahmen stehen, also Datum kleiner als heute. Ist das möglich? Wenn ja, wie stellt man das am besten an? Im Voraus herzlichen Dank, Frank
woran erkennt man denn genau eine überfällige Maßnahme? Bei den 4er und 5er ist das Umsetzungsdatum ja fast immer kleiner als heute, die würden dann ja doppelt gelistet.
woran erkennt man denn genau eine überfällige Maßnahme? Bei den 4er und 5er ist das Umsetzungsdatum ja fast immer kleiner als heute, die würden dann ja doppelt gelistet.
Gruß, steve1da
Hallo steve1da, überfällige Maßnahmen erkennt man an der letzten Spalte " Umsetzung bis" Und das sich Status 4&5 und Fälligkeitsdatum überschneiden liegt daran das die Tabelle, welche ich hier aufgespielt habe, ein Beispiel ist. Aber das kann durchaus in der Realität vorkommen, ohne weiteres!Dann sollte die Überfälligkeit auf jeden Fall vorang haben, falls das möglich ist.
vielleicht hat auch der eine oder andere ein verlängertes Wochenende oder ist schon in den Urlaub :79:
Hier mal mein Ansatz. Eventuell müsste das Zielblatt vor dem Dateneintrag noch im code geleert werden, ansonsten kann es zu Datenüberschneidungen kommen.
Code:
Sub Makro1() 'Blatt Roadmap auswaehlen Sheets("Roadmap").Select 'Filter zuruecksetzen, wenn vorhanden If ActiveSheet.FilterMode Then Selection.AutoFilter 'Spalte M nach Datum von heute filtern. Eventuell bis zum letzten Eintrag oder 'Bereich groß genug programmieren ActiveSheet.Range("$M$9:$M$389").AutoFilter Field:=1 ActiveSheet.Range("$M$9:$M$389").AutoFilter Field:=1, Criteria1:= _ "<" & CDbl(Date), Operator:=xlAnd 'gefilterten Bereich kopieren Range("B9:M389").Copy 'Blatt Pot... auswaehlen Sheets("Potentiale_gefiltert").Select 'B2 auswaehlen und Range("B2").Select 'Daten einfuegen ActiveSheet.Paste 'Blatt Roadmap auswaehlen Sheets("Roadmap").Select 'Filter zuruecksetzen Selection.AutoFilter 'Range("B9:M389").AutoFilter 'Spalte B nach Stand > 3 filtern und anschliessend Spalte M nach Datum >= heute ActiveSheet.Range("$B$9:$M$389").AutoFilter Field:=1, Criteria1:=">3", _ Operator:=xlAnd ActiveSheet.Range("$B$9:$M$389").AutoFilter Field:=12, Criteria1:= _ ">=" & CDbl(Date), Operator:=xlAnd 'gefilterten Bereich kopieren Range("B10:M389").Copy 'Blatt Pot... auswaehlen Sheets("Potentiale_gefiltert").Select 'Zelle unter dem zuerst eingefuegten Bereich waehlen Cells(Cells(Rows.Count, 13).End(xlUp).Row + 1, 2).Select 'Daten einfuegen ActiveSheet.Paste 'Blatt Roadmap auswaehlen Sheets("Roadmap").Select 'Filter zuruecksetzen Selection.AutoFilter
End Sub
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
ich habe Dir doch einen Ansatz geliefert. Passt der nicht oder weißt Du eventuell nicht, was damit zu tun ist? Ich bin ja da
Ohhhhhh!Entschuldigung! Ich habe deine Nachricht gar nicht gesehen !! Ich werde mir dir gleich mal ansehen und dir heute noch oder morgen ein Feedback geben. Danke soweit erstmal. Grüße Frank
:21: