Medtage kommentarer i LOPSLAG/formler

Det kan lade sig gøre med VBA.
Hvis du har opslagsværdien i kolonne A og tabellen der skal slås op fra i kolonne I og J kan denne makro gøre det. Den starter automatisk når der skrives noget i kolonne A.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error GoTo A:
Dim x As Integer
x = Application.Match(ActiveCell.Value, Range("I:I"), 0)
Range("I1").Offset(x - 1, 1).Copy
ActiveCell.Offset(0, 1).PasteSpecial
Application.CutCopyMode = False
ActiveCell.Offset(0, -1).Select
End If
Exit Sub
A:
ActiveCell.Offset(0, 1) = ""
End Sub

Hej Jens

Tak for dit svar. Jeg har ikke prøvet dette før. Skal jeg, Copy paste teksten, gå ind under ark kode og indsætte den og så skulle det fungere?

ja, højreklik på fanebladet, vælg vis koder og indsæt makroen der.

Hej Jens

Jeg kan ikke få det til at fungere. Kan jeg ikke prøve at sende dig eksempel på hvor jeg har prøvet at bruge det, eller omvendt kunne du prøve at sende det til mig?

ja, send det til kober_soerensen(snabela)hotmail.com

Jeg har sendt arket retur med denne makro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error GoTo A:
Dim x As Integer
x = Application.Match(ActiveCell.Value, Range("I:I"), 0)
Range("I1").Offset(x - 1, 1).Copy
ActiveCell.Offset(0, 1).PasteSpecial
Application.CutCopyMode = False
ActiveCell.Offset(0, -1).Select
End If
Exit Sub
A:
ActiveCell.Offset(0, 1).Clear
End Sub

PS: Det er mig der skal give svar, og du skal acceptere det - hvis ellers svaret kan bruges