kleine-vba frage

hi!

ich hab hier eine lange excel-datei aus der ich bestimmte sachen löschen sollte. drum bräucht ich ein kleines script, das einfach alle ZEILEN löscht, die ein bestimmtes wort oder so beinhalten. ich dachte meine vba-kenntnisse sind noch ausreichen, hab aber leider schon zu viel vergessen.

danke im vorraus
die7werge

Code: PHP

Sub DeleteRowByValue(myvalue As String)

    Dim c As Range

    For Each c In ActiveWindow.RangeSelection
        If c.value = myvalue Then
            c.EntireRow.Delete
        End If
    Next c

End Sub

löscht aus dem aktiven markierten bereich alle zeilen die den wert myvalue enthalten

Der erste Blick sagt mir, dass das nicht ganz funktionieren kann. Wenn eine Zeile gelöscht wird, beginnt dieses Stück Code IMHO nicht zu Beginn der nun aktuellen Zeile. Die Zellen in der nachgerückten Zeile, die sich vor der aktuellen Zelle befinden, bleiben in diesem Fall ungeprüft und die Lösung ist nicht zu hundert Prozent effektiv.

Zudem wäre die Angabe von myvalue über eine InputBox vielleicht eine besserer Ansatz

@jc, interessanter einwand - aber excel lässt da nichts aus, auch wenn da zweimal untereinander der gleiche wert steht

mit input box:

Code: PHP

Sub DeleteRowByValue()

    Dim myvalue As String
    Dim c As Range
    
    myvalue = InputBox("Bitte den zu suchenden Text eingeben!", "Zeilen mit Text löschen", "Suchtext")
    
    For Each c In ActiveWindow.RangeSelection
        If c.Value = myvalue Then
            c.EntireRow.Delete
        End If
    Next c

End Sub

Du kannst diesen Code auch einer Schaltfläche oder wwi zuweisen um ihn aufzurufen

bzw solange die schleife wiederholen und nen counter mitrennen lassen bis die anzahl der ersetzungen 0 ist

damit erschlägt man dann auch fälle > 2