Teilwert suchen und lösche Zeile
03.04.2015 21:27:34
Andreas Winkel
Hallo,
letztes hat ich nen Tritt nötig nun schon wieder ;)
Ich suche einen Teil eines Wertes und will die gesamte Zeile Löschen. Das klappt soweit ganz gut nur leider löscht er nur jede zweite gefundene Zeile!? Kann jemand so nett sein und mir ein denkanstoß geben!? Danke
Private Sub CommandButton15_Click()
Dim sBereich As Range
Dim sZelle As Range
Dim suche As Variant
Dim gefunden As Variant
Dim letztezeile As Variant
Dim diezeilewoichbin As Variant
letztezeile = Workbooks("datei.xlsx").Sheets("tabellenname").Cells(1048576, 1).End(xlUp).Row
suche = "254"
Set sBereich = Workbooks("datei.xlsx").Sheets("tabellenname").Range("B2:B" & letztezeile)
For Each sZelle In sBereich
If Left(UCase(sZelle.Value), 3) = suche Then
diezeilewoichbin = Right(sZelle.Address, Len(sZelle.Address) - 3)
Workbooks("datei.xlsx").Sheets("tabellenname").Rows(CStr( _
adresszeile & ":" & adresszeile)).Delete
End If
Next sZelle
MsgBox gelöscht
End Sub