Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zeilen auslesen und sortieren
#1
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


Angehängte Dateien
.xlsx   1 Potentialtabelle_Roadmap_lean.xlsx (Größe: 38,12 KB / Downloads: 7)
Antwortento top
#2
Hola,

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
Antwortento top
#3
(03.07.2015, 09:49)steve1da schrieb: Hola,

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.

Viele Grüße
Frank
Antwortento top
#4
...ich bin es nochmal.
Kann es sein, das mein Problem nicht lösbar ist? Oder hab ich das Problem vielleicht falsch erklärt ?

Grüße
Frank
Antwortento top
#5
Hallo Frank,

es könnte auch am Wetter liegen 21 Nicht überall gewittert es.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#6
...okay, daran könnte es auch liegen Wink 21

Grüße
Frank
Antwortento top
#7
Hallo Frank,

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-2016)
Antwortento top
#8
...ob ich mein Problem mal in einem anderen Forum posten soll ?
Grüße
Frank
Antwortento top
#9
Hallo Frank,

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 Wink
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#10
(06.07.2015, 19:42)schauan schrieb: Hallo Frank,

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 Wink


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
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste