find celle vha VBA

Det behøver du egentlig ikke VBA for at klare.
Man kan godt konstruere en formel som klarer et "dobbelt-opslag".

Jeg ved, men har brug for VBA da det er et led i noget VBA jeg har lavet.

Og det jeg mangler er bare at få selected denne celle.

Jeg vil ikke kopier resultatet fra cellen, men ved VBA select den pågældene celle.

Ja, jeg forstår .... og lægger hovedet i blød .... :-)

Du behøver ikke VBA for at vælge en celle.
Du kan evt. bruge OFFSET-funktionen.

Kender ikke offset funktionen. Da jeg skal trykke på en knap hvis jeg vil have overført nogle værdier til en celle, så behøver jeg VBA

Så skulle den være der.
Du kan bruge denne kode:

Sub Lookup_2D()
Dim iRowOffset As Integer, iColumnOffset As Integer

iRowOffset = Application.Match(Range("Row"), _
  Range("RowHeaders"))
iColumnOffset = Application.Match(Range("Column"), _
  Range("ColumnHeaders"))

Range("RowHeaders").Cells(1).Offset(-1, 0). _
  Offset(iRowOffset, iColumnOffset).Activate
End Sub

Navngiv områderne i dit ark:
RowHeaders
ColumnHeaders
Row
Column

Range("RowHeaders").Cells(1).Offset(-1, 0). _
  Offset(iRowOffset, iColumnOffset).Activate

viser en fejl her

Du må hellere se hele min kode.

Sub Udlån()
    Dim iRowOffset As Integer, iColumnOffset As Integer
    Range("E7:E38").Select
    Selection.Copy
    iRowOffset = Application.Match(Range("Row"), _
        Range("RowHeaders"))
    iColumnOffset = Application.Match(Range("Column"), _
        Range("ColumnHeaders"))
    Range("RowHeaders").Cells(1).Offset(-1, 0). _
        Offset(iRowOffset, iColumnOffset).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
End Sub

Celle D3 skal døbes "Row"
Celle E3 skal døbes "Column"
Dine dato-data i A-kolonnen skal døbes ColumnHeaders
Og det vandrette område, som indeholder "andre".

Jeg kan evt. sende mit eksempel til dig. Det virker fint ....


Du har indsat noget ekstra kode, som ikke skal være der, ihvertfald ikke for at løse det spørgsmål du stiller.

Det har vel ikke noget med Udlån-spørgsmålet at gøre? :-)

Sorry, der var en fejl (ikke i koden):
Dine dato-data i A-kolonnen skal døbes RowHeaders

He he det har noget med udlån og gøre.

Tak for hjælpen

at gøre