Makr vorsetzen bei bestimmtes Wort in einer Zelle
19.06.2018 19:20:53
Norbert
Ich hoffe das ich hier Hilfe finde, wobei ich glaube das das für einen guten Anwender nich so schwirig sein wird.
Ich beschäftige mich jetzt schon eine ganze weile damit.
So hier mein Problem
das folgendes Makro funktioniert wenn in den gesuchten Zellen
nur "Auflieger" steht, ich brauche aber die gleiche Abarbeitungs des Makros wenn auch mehr darin steht, wobei "Auflieger" immer an erster Stelle steht.
Sub AufliegerInfoEntfernen()
Dim RaFound As Range
With Worksheets("Auslieferungsliste")
Set RaFound = .Cells.Find("Auflieger", , , xlWhole, , xlNext)
If Not RaFound Is Nothing Then
Rows(RaFound.Row).Delete
Do
Set RaFound = .Cells.Find("Auflieger", , , xlWhole, , xlNext)
If RaFound Is Nothing Then Exit Do
Rows(RaFound.Row).Delete
Loop
End If
End With
End Sub
schon mal vielen Dank im voraus
Gruß Norbert
Anzeige