Wer kann helfen!!!
Ich brauche ein makro mit folgender funktion:
Durchsuche die Spalte A und suche nach der Zahl 104 und wenn gefunden lösche
inhalt aus der zelle danach suche nach weiteren einträgen in A.
Danke schon mal für die Hilfe
Gruß
Achim H.
Sub Achim()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, 1).Value = 104 Then
Cells(i, 1).ClearContents
End If
Next i
Application.ScreenUpdating = True
End Sub