Tachchen nochmal,
ja das ist schon auch möglich. Das solltest du aber erst nach dem Löschen der Zeilen ausführen, sonst löschst du versehentlich Zeilen in Spalte F mit. Kann es evtl. sein, dass der Wert 09900098 5 9 nicht in die Datenreihe passt? Du hast direkt darunter nochmal Werte in B:D stehen die zu dem gleichen Wert in Spalte A gehören.
Versuch mal den folgenden Code:
[code]Sub ZeilenLoeschen()
Dim r As Range
Range("B2:B" & UsedRange.Row + UsedRange.Rows.Count) _
.SpecialCells(xlCellTypeConstants, 3).Offset(-1, 0).EntireRow.Delete
Neusuche:
Do
w = InputBox("Geben Sie einen Wert im Format 000.00.00 ein", "Wert eingeben", w)
If Val(w) > 0 Then w = Format(w, "000"".""00"".""00")
If w = "" Then Exit Sub
Loop Until Len(w) = 9
Set c = Columns("A:A").Find(w)
If Not c Is Nothing Then Set r = Range(c, Cells(Rows.Count, 1).End(xlUp).Offset(0, 3))
If Not r Is Nothing Then
r.Copy
Range("F1").PasteSpecial xlPasteAll
r.ClearContents
Else
MsgBox "Der Wert " & w & " wurde nicht gefunden"
GoTo Neusuche
End If
End Sub[/code]Gruß Mr. K.