Übergreifendes Makro in Tabelle

[Stefan87]

Auch dann funktioniert es leider nicht.

Der Code ist unter: Module --> Spezielles abgelegt.

[{Boris}]

Hi,

der Code in Deiner Beispieldatei entspricht NICHT dem von Dir eingangs geposteten Code, denn in der Datei verwendest Du 1 mal Activesheet - das war in Deinem geposteten Code anders.
Hier der fertige und funktionierende Code.

Sub DelFoundLines()
    Dim i As Long          ' Zeilenzähler
    Dim tofind As Variant  ' Hiernach wird gesucht
    Dim found As Range      ' Eine Fundstelle oder Nothing
    tofind = InputBox(prompt:=Msg, Title:=Titel)
    If tofind = "" Then Exit Sub
    Application.ScreenUpdating = False
    For i = Worksheets("Partlist").Cells.SpecialCells(xlCellTypeLastCell).Row _
        To 1 Step -1
        Set found = Worksheets("Partlist").Rows(i).Find(what:=tofind, _
        LookIn:=xlValues, lookat:=xlWhole)
            If Not found Is Nothing Then Worksheets("Partlist").Rows(i).Delete
    Next
    Application.ScreenUpdating = True
End Sub

[Stefan87]

Vielen Dank für die Unterstützung. Jetzt funktioniert es.
Du hast den Code unter Modul1 genommen, das war der Original Code den ich aus dem Internet genommen habe, als Backup.
Mein Code den ich gepostet hatte, ist unter dem Modul Spezielles gewesen.

Aber jetzt klappt es wie gewünscht.

Besten Dank