find-erstat går i fejl i VBA

Er næsten nødt til at se koden, men du kan evt. prøve at indsætte

On Error Resume Next


og så lige huske at placere

On Error GoTo 0

i slutningen af sub'en, så fejlbehandlingen sættes tilbage til normalen igen.

Range("a:a").Select
     
    On Error Resume Next
    Do Until ActiveCell.Value = "-----"
    Selection.find(What:="78300", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
    ActiveCell.Replace What:="78300", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
       
    Loop
on error goto 0

efter "error" - skal den gå videre til samme procedure med en anden værdi der skal udsøges.

måske kan du bruge noget i denne her retning i stedet:

Sub test()
Dim firstAddress

With Worksheets("Ark1").Columns(1)
    Set c = .Find(78300, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = Null
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

End Sub

Ikke lige umiddelbart, da jeg skal omdefinere "78300" til ""/null og derved går denne sub jo i fejl.

Jeg forstår ikke lige hvad du mener.

Jeg har prøvet på en kolonne med tal, hvor jeg havde skrevet 78300 et par steder. Sub'en erstattede disse steder med Null - det var det, jeg troede du ville.

Har lige testet den uden for min anden kode, og kan godt få den til at fejle. Prøv med denne her i stedet:

Sub test()

With Worksheets("Ark1").Columns(1)
    Set c = .Find(78300, LookIn:=xlValues)
    If Not c Is Nothing Then
        Do
            c.Value = Null
            Set c = .FindNext(c)
        Loop While Not c Is Nothing
    End If
End With

End Sub

Det virker perfekt.
Hvorfor "not is nothing" - den vending forstår jeg ikke helt?
Set - laver vel celleadressen eller...

Ligger du svar

Ok.

"Not c Is Nothing" lyder umiddelbart lidt klodset, så jeg kan godt forstå dit problem.

Det kan måske lettest forklares med følgende:

Hvis "c Is Nothing", så er der IKKE fundet noget i søgningen.
Hvis "Not c Is Nothing", så ER der fundet noget i søgningen.

Ok - tak for hjælpen...!