14.09.2021, 19:56
Seiten: 1 2
14.09.2021, 20:06
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.
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.
Zitat: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
14.09.2021, 20:16
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
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
Seiten: 1 2