Opslag i mange kolonner, hvordan?

Hvornår skal den slå op i de forskellige kolonner?
Er der en regel eller skal du kunne vælge fra gang til gang?

Jeg skal ved hjælp af følgende Makro kunne dobbelt klikke på et tal i D8:D27 eller en af de andre kolonner. Jeg skal kunne vælge tal eller kolonne fra gang til gang. Det meste af Makroen er udviklet af BAK.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim ss As String
  On Error GoTo fejl
    If Not Intersect(Target, Range("D8:D27, G8:G27")) Is Nothing Then
    Cancel = True
    ss = "'" & Left(ThisWorkbook.path, InStrRev(ThisWorkbook.path, "\"))
    ss = ss & "[JOBnrMed_Tekst.xls]Sheet1'!$A$2:$B$2500,2,false"
    ss = "=vlookup(" & Target.Address & "," & ss & ")"
    [ga1].Formula = ss
    If IsError([ga1]) Then MsgBox Target.Value & vbCr & ("Ingen hjælpetekst") Else MsgBox Target.Value & vbCr & [ga1].Value
    [ga1].Clear
  End If
  Exit Sub
fejl:
  MsgBox ("der er sket en fejl")
End Sub

denne linie skal være noget længere - tilføj de nye områder med komma i mellem, som det er gjort med de første to.

If Not Intersect(Target, Range("D8:D27, G8:G27")) Is Nothing Then

felmmingdahl
Det er jeg med på, men jeg søgte efter om der var en smart måde, så jeg ikke skulle igang med SLAVE-arbejdet:
D8:D27>>>>>>>>>>>>>>>FD8:FD27, ellers må jeg bare igang.
mfj1

Hvis det er ALLE kolonner, så kan du skrive D8:FD27

Det er ikke alle kolonner der bruges, i eks. bruges D, G, J osv. men kolonne E, F og H, I osv. bruges IKKE.

mfj1

Manuelt arbejde

Der er en måde at gøre det på.
Marker alle de områder det drejer sig om (brug ctrl-tasten for at markere flere områder samtidig)
Navngiv det markerede. fx "test"
ændre kodelinien til
If Not Intersect(Target, Range("test")) Is Nothing Then

Hej Bak!
Dit forslag til ændring funger fint med en kolonne, men jeg kan max marker en kolonne og skrive "Projektnr" i navneboksen, marker jeg flere eller en enkel kolonne mere og skriver "Projektnr" i navneboksen og derefter Enter hopper markeringen blot tilbage til den første kolonne der blev markeret. Er der nogen indstillinger jeg skal være opmærksom på?
Makroen følger.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim ss As String
  On Error GoTo fejl
    If Not Intersect(Target, Range("Projektnr")) Is Nothing Then
    Cancel = True
    ss = "'" & Left(ThisWorkbook.path, InStrRev(ThisWorkbook.path, "\"))
    ss = ss & "[JOBnrMed_Tekst.xls]Sheet1'!$A$2:$B$2500,2,false"
    ss = "=vlookup(" & Target.Address & "," & ss & ")"
    [ga1].Formula = ss
    If IsError([ga1]) Then MsgBox Target.Value & vbCr & ("Ingen hjælpetekst") Else MsgBox Target.Value & vbCr & [ga1].Value
    [ga1].Clear
  End If
  Exit Sub
fejl:
  MsgBox ("der er sket en fejl")
End Sub

Næh der er ikke noget specielt her...
Hold ctrl-tasten nede samtidig med at du markerer cellerne og gå derefter op i navneboksen

Det er det jeg har gjort, men den "går" tilbage til kolonne DZ som var den første kolonne jeg markerede.

Marker jeg f.eks. kolonne D og går derefter op i navneboksen og skriver Projektnr derefter Enter "går den blot tilbage til  kolonne DZ.
Jeg må se om der er forskel på PC-eren der hjemme.

Bak.
Kan du ikke ligge et svar så du kan få lidt point, for svaret fungerede.
mfj1

Når du markerer flere områder og skal navngive dem, så forsvinder navnet igen - sådan er det nu engang, men du kan se navnet under Indsæt/Navn/Definer - her kan du også slette det, hvis du skulle få det oprettet forkert.

ok