Run-time Error 1004: Application-defined or object-defined error

Der må være noget mere kode? Hvor er koden placeret?

Har prøvet din kode i ThisWorkbook - ingen fejlmelding.

og så velkommen til Eksperten..

Hej,
Tak for det. Jeg satte ikke resten af koden ind for at gøre fejlen mere synlig, men her er hele modulet:

Sub Søg(søgeOrd1 As String, Optional søgeOrd2 As String)
Dim tæller As Integer
Dim wsAntal As Integer
Dim firstAddress As String
Static fundne As Integer
Dim c As Range
Dim d As Range
Dim currentRow As Long
Dim searchRange As Range
Dim lastCol As Integer
Dim lastRow As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False


On Error GoTo Fejl

lastCol = Worksheets("prisDB").Cells.Find("*", searchorder:=xlByColumns, _
        LookIn:=xlValues, searchdirection:=xlPrevious).Column
lastRow = Worksheets("prisDB").Cells.Find("*", searchorder:=xlByRows, _
        LookIn:=xlValues, searchdirection:=xlPrevious).Row
Set searchRange = Workbooks("_Søg v2.xlsb").Worksheets("prisDB").Range(Cells(1, 1), Cells(lastRow, lastCol))

fundne = 2
            With searchRange
                    Set c = .Find(what:=søgeOrd1, LookIn:=xlValues, LookAt:=xlPart, searchorder:=xlByRows, _
                        searchdirection:=xlNext, MatchCase:=False, SearchFormat:=False)
                    If Not c Is Nothing Then
                        firstAddress = c.Address
                        Do
                            currentRow = Range(c.Address).Row
                            Worksheets("prisDB").Range(Cells(currentRow, 1)).EntireRow.Copy Worksheets("SøgeArk").Range("A" & fundne)
                            fundne = fundne + 1
                            Set c = .FindNext(c)
                        Loop While Not c Is Nothing And c.Address <> firstAddress
                    End If
                    '2. søgning
                    If søgeOrd2 <> "" Then
                        Set d = .Find(what:=søgeOrd2, LookIn:=xlValues, LookAt:=xlPart, searchorder:=xlByRows, _
                        searchdirection:=xlNext, MatchCase:=False, SearchFormat:=False)
                        If Not d Is Nothing Then
                            firstAddress = d.Address
                            Do
                                currentRow = Range(d.Address).Row
                            Worksheets("prisDB").Range(Cells(currentRow, 1)).EntireRow.Copy Worksheets("SøgeArk").Range("A" & fundne)
                                fundne = fundne + 1
                                Set d = .FindNext(d)
                            Loop While Not d Is Nothing And d.Address <> firstAddress
                        End If
                    End If
            End With
       
Application.EnableEvents = True
'Application.ShowWindowsInTaskbar = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
If Range("A2") = "" Then MsgBox "Ingen match på din søgning", vbOKOnly + vbCritical, "Resultat"
Fejl:
    If Err.Number <> 0 Then
        MsgBox "Der er sket en fejl i filen " & ActiveWorkbook.Name & " | Modul modFunktioner | Sub Fejlhåndtering: " & Err.Description
    End If
End Sub

Jeg får søgeOrd1 og søgeOrd2 fra en Userform - det virker tilsyneladende godt nok.

og tak for velkomsten!

Set searchRange = Workbooks("_Søg v2.xlsb").Worksheets("prisDB").Range(Cells(1, 1), Cells(lastRow, lastCol))

Er den nævnte fil "_Søg v2.xlsb" åben i forvejen?

Ja, det er den fil modulet ligger i. Jeg har også prøvet med ActiveWorkbook og helt udeladt specifikation af Workbooken men med det samme resultat.

Prøv med:
Set searchRange = ActiveWorkbook.Worksheets("prisDB").Range(Cells(1, 1), Cells(lastRow, lastCol))


PS: SVAR anvendes kun af forslagsstillere ved et løsningsforslag - altså et svar på en udfordring. Anvend i stedet KOMMENTAR...

(Mange nye har samme problem - fortvivl ej)

Jeg har prøvet de tre nedenstående, men alle udløser samme fejlmeddelelse

'Set searchRange = Workbooks("_Søg v2.xlsb").Worksheets("prisDB").Range(Cells(1, 1), Cells(lastRow, lastCol))
Set searchRange = ActiveWorkbook.Worksheets("prisDB").Range(Cells(1, 1), Cells(lastRow, lastCol))
'Set searchRange = Worksheets("prisDB").Range(Cells(1, 1), Cells(lastRow, lastCol))

Kan det være et problem, at der er tale om et forholdsmæssigt stort område?

Jeg håber, at det her er den rigtige metode.

Jeg tror ikke at områdestørrelsen er problemet.

Hvis det er noget, som du kan maile - så er du velkommen til det - skal så prøve at se på det. @-adresse under min profil..

Jeg kan desværre ikke sende hele filen, da den indeholder en del fortrolige oplysninger.
Jeg må prøve at se om der er en anden måde at gøre det på.

I givet fald kan det fortrolige vel slettes...

Det lykkedes mig at finde en vej rundt ved at bruge CurrentRegion:
Set searchRange = Worksheets("prisDB").Range("A1").CurrentRegion

Den regneark der søges på udfyldes af et andet program jeg har lavet, så jeg kan sikre mig at der ikke er "huller" i det. Ikke videre elegant - men det virker :-).

Tak for dine input!

Fint og selv tak

Husk at lukke spørgsmålet - Accepter blot et af dine Svar og Afvis de øvrige.