søge efter et navngivet område

Sæt en reference til det navngivne område med en af de "frække" error-handlere foran. Hvis dit objekt så er ingenting, så eksisterer det navngivne område ikke.

*****************
Dim objRange As Range

On Error Resume Next
Set objRange = ActiveWorkbook.Names("område1").RefersToRange
On Error GoTo 0

If Not objRange Is Nothing Then

End If

eller =ER.FEJL(RÆKKER(Område1))
giver FALSK hvis Område1 er navnedefineret

det skal køres i en makro der henter data i en anden fil, så det sidste bud virker desværre ikke

Sub test()
On Error Resume Next
adr = Range("Område1").Address
If Err = 0 Then
'.....
Else
'.....
End If
End Sub

Øhhh... undskyld excelent, men hvad er der galt med min kode i forhold til den, du nu foreslår?

kunne ikke få den til at virke
måske fordi jeg ikke fik dimensioneringen med

næ det var det ikke, kan du få den til at funke ?

Ja da. Har da pænt testet det, inden jeg smed det herinde. Og har lige gjort det igen.

du har ret, fik en vædi ud af det med MsgBox ("") & objRange.Address
så se bort fra mine indlæg

Jeg har lidt problemer. Da jeg indledningsvis i makroen åbner en anden fil og dimensionerer den nye fil til wb.worksheets
Se nedenfor:

Har ikke nået at teste excelents endnu.



Sub importer_hovedkonklusion()

If MsgBox("Er du sikker på at du vil importere data fra en anden fil?", vbOKCancel, "Advarsel!") = vbCancel Then Exit Sub
Dim fn As Variant
    ChDrive "c"
    ChDir "c:\dokument"
    fn = Application.GetOpenFilename("Excel-files,*.xls", 1, "Vælg sidste års fil", , False)

      If TypeName(fn) = "Boolean" Then Exit Sub
      Debug.Print "Selected file: " & fn

    If MsgBox("Du har valgt at importere data fra filen:" & vbLf & vbLf & fn & vbLf & vbLf & "Er du sikker på at du vil fortsætte?", vbOKCancel, "Advarsel!") = vbCancel Then Exit Sub
    Application.EnableEvents = False
    On Error Resume Next

Dim wb As Workbook
    Set wb = Workbooks.Open(fn, True, True)

Dim objRange As Range

On Error Resume Next
Set objRange = ActiveWorkbook.Names("område1").RefersToRange
On Error GoTo 0

If Not objRange Is Nothing Then




With ThisWorkbook.Worksheets("HK-uddyb.notat")
.Range("a3").Formula = wb.Worksheets("HK - uddyb. notat").Range("a3").Formula


End If

Set en reference til den åbne fil, inden du åbner den anden.

Set objCurrentWB = ActiveWorkbook

Så skal du ændre objRange til:

Set objRange = objCurrentWB.Names("område1").RefersToRange

Jeg har vist helt glemt at lukke denne.
Har I et svar ,så deler jeg pointene :-)

tak for hjælpen

Velbekomme.