Excel Makro Search and Destroy

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Infisuir.

    Excel Makro Search and Destroy

    Hallo,

    ich habe hier ein Problem vorliegen und komme einfach nicht mehr weiter.

    Was ich möchte :

    Das Makro soll in S:S den Wert von AE1 suchen und überall wo er ihn findet soll die ganze Zeile gelöscht werden.

    ich hoffe ihr könnt mir helfen, ich komme nich mehr weiter 8|

    Mit freundlichen Grüßen

    Visual Basic-Quellcode

    1. For r = Cells(Rows.Count,19).End(xlUp).Row to 2 Step -1
    2. If Cells(r,19).Value = Range("AE1").Value Then Range(r & ":" & r).EntireRow.Delete xlUp
    3. Next

    Alternativ (und performanter bei großen Datenmengen):

    Visual Basic-Quellcode

    1. If Range("AE1").Value <> "" Then
    2. Do
    3. Set c = Range("S:S").Find(Range("AE1").Value, LookIn:=xlValues, LookAt:=xlWhole)
    4. If Not c is Nothing Then c.EntireRow.Delete xlup
    5. Loop Until c is Nothing
    6. End If

    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „petaod“ ()

    petaod schrieb:

    Visual Basic-Quellcode

    1. For r = Cells(Rows.Count,19).End(xlUp).Row to 2 Step -1
    2. If Cells(r,19).Value = Range("AE1").Value Then Range(r & ":" & r).EntireRow.Delete xlUp
    3. Next

    Alternativ (und performanter bei großen Datenmengen):

    Visual Basic-Quellcode

    1. If Range("AE1").Value <> "" Then
    2. Do
    3. Set c = Range("S:S").Find(Range("AE1").Value, LookIn:=xlValues, LookAt:=xlWhole)
    4. If Not c is Nothing Then c.EntireRow.Delete xlup
    5. Loop Until c is Nothing
    6. End If



    Hab den zweiten Code genommen da die Datei ziemlich groß ist.
    Hat super geklappt, ich danke vielmals

    MfG