Sub
Delete_Rows()
Dim
Suchname
As
String
Dim
letzte_Zeile
As
Long
Dim
Zeile
As
Long
Dim
Spalte
As
Long
Suchname = InputBox(
"Suchbegriff: "
)
Spalte = InputBox(
"Spalte: "
)
If
Spalte =
""
Then
Spalte = 1
End
If
If
Suchbegriff <>
""
Then
Application.ScreenUpdating =
False
With
Sheets(
"Index"
)
letzte_Zeile = .Cells(
"65536"
, Spalte).
End
(xlUp).Row
For
Zeile = 1
To
letzte_Zeile
If
Suchname = .Cells(Zeile, Spalte).Value
Then
.Cells(Zeile, Spalte).Delete
letzte_Zeile = letzte_Zeile - 1
End
If
Next
End
With
Application.ScreenUpdating =
True
End
If
End
Sub