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