ich benötige wieder einmal eure Hilfe.
Folgender Code wurde von mir erstellt:
<pre>Sub Wert_inSpalte_suchen4()
Dim Zelle As Range
Dim Bereich As Range
Dim lz As Long
Dim Zelle_A As String
Zelle_A = "333 333 33"
With ActiveSheet
lz = .Cells(Rows.Count, 3).End(xlUp).Row
Set Bereich = Range("E2:E" & lz)
For Each Zelle In Bereich
If Zelle.Row > 1 Then
If Zelle = Zelle_A Then
Range(Zelle.Offset(0, -3), Zelle.Offset(0, 1)).Delete Shift:=xlUp
End If
End If
Next Zelle
End With
End Sub</pre>
Das Problem ist aber, dass nach dem Löschen der Zeile die Zeilenreihenfolge nicht mehr stimmt.
Was muss hier bitte geändert werden, dass die Zelle zurückgesetzt wird.
Besten Dank für Eure Hilfe.
Gruss
Peter