Bestimmten Bereich nach Suche markieren und kopieren oder Zeilen darüber und darunter löschen

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Mono.

    Bestimmten Bereich nach Suche markieren und kopieren oder Zeilen darüber und darunter löschen

    Guten Abend community,

    ich habe folgende Tabelle
    DateIst-BestandSoll-BestandDifferenzStatus
    01.11.2015



    02.11.2015



    03.11.2015



    04.11.2015



    05.11.2015



    06.11.2015



    07.11.2015



    08.11.2015



    09.11.2015



    10.11.2015








    Diese Tabelle ist wie man sieht mit einer Datumsspalte und ein paar Werten die ich jetzt nicht ausfüllen wollte. Immer mittwochs wird die Tabelle ausgewertet und zwar von der Woche vorher. Das richtige Datum finde ich folgendermaßen:

    Quellcode

    1. Dim rng As Range
    2. Set rng = Worksheets(5).Range("A:A").Find(What:=Date - 9)
    5. rng.Activate


    Das activate war nur zu Testzwecken. Jetzt zu meinem Problem:

    Ich will nun vom gefundenen Datum aus sieben Zeilen nach unten markieren und alle darunter und alle darüber außer die Erste(wegen den Spaltenbezeichnungen) möchte ich löschen.

    Ist das irgendwie möglich?

    Grüße

    Ja das ist irgendwie möglich.
    Hier ein Ansatz mit dem du es selber hinbekommen solltest:


    Visual Basic-Quellcode

    1. Dim Last as Long
    2. Dim i as Long
    3. Dim rng as Range
    4. Set rng = Worksheets(5).Range("A:A").Find(What:=Date - 9)
    5. If not rng is nothing then
    6. Last = Cells(Rows.Count, "A").End(xlUp).Row
    7. For i = Last To rng.Row + 7 Step -1
    8. Cells(i, "A").EntireRow.Delete
    9. Next
    10. End if


    So löschst du die Zeile von unten bis 7 Zeilen unter der gefundenen Range.
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende