TeilenLöschen
Walter
Hallo
Ich habe eine Tabelle Spalte "A" mit Artikelnummern, hier sollen alle Artikel mit der Zeichenfolge "17" gelöscht werden.
Dim suche1 As Range
Dim zaehler1 As Long
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Set suche1 = Sheets(1).Range("A" & zaehler1 & ":A" & Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find("17", LookIn:=xlValues)
zaehler1 = suche1.Row
Sheets(1).Range(suche1.Row & ":" & suche1.Row).Delete Shift:=xlUp
Next zaehler1
Application.ScreenUpdating = True
Habe das gefunden, leider ohne erfolg.
Bitte um Hilfe
Danke sagt
Rentner Walter