VBA cel selecteren via formule

[Ralf1991]

Beste Helper,

Ik ben op zoek naar een oplossing om de cel te selecteren middels onderstaande formule die ik heb gemaakt:

{=ADDRESS(MATCH(J13&K13&L13;A:A&B:B&C:C;0);MATCH("Uit";A1:G1;0);4)}

Wat ik wil is de formule gebruiken om een cel te seleceteren en vervolgens in die cel een waarde te plaatsen. Zie onderstaand voorbeeld:

Range("J21").Select
ActiveCell.FormulaR1C1 = "1"
Range("J22").Select

Waar ik J21 met de muis heb geselecteert wil ik dat de formule een cel selecteert.

Ik ben er inmiddels achter gekomen dat VBA de functie Address niet ondersteund. Maar wellicht is er een andere manier of zie ik iets over het hoofd?

Bedankt.

 

[Niels28]

altijd handig zo'n voorbeeldbestandje met duidelijke uitleg.
Dit is wat ik er van kan maken'

Sub test()

c01 = [J1] & "|" & [K1] & "|" & [L1]
For Each cl In Range("A:A").SpecialCells(2)
c02 = cl.Value & "|" & cl.Offset(, 1).Value & "|" & cl.Offset(, 2).Value
If c01 = c02 Then
Set r = Range("A1:G1").Find("Uit")
Cells(cl.Row, r.Column).Value = Format(Now(), "hh:mm")
Exit For
End If
Next

End Sub

PS waarom stel je je vragen dubbel en beide met halve info?

Niels

 

[Ralf1991]

Bekijk bijlage Helpmij.xlsm

Bijgevoegd het voorbeeld bestand.

Ik heb de formule in cel I1 geplaatst

Wat ik graag zou willen is dat excel middels vba de waarde uit cel I1 ophaald en deze waarde gebruikt om in dit geval cel E4 te selecteren.

Voorbeeld:
If UitTijd.Value = True Then Cells(E4).Value = Format(Now(), "hh:mm")

E4 is dus de variabele die opgehaald moet worden uit cel I1.

 

[Niels28]

Heb je mij macro al getest?
dan weet je toch wat je moet aanapssen.

Niels

 

[Ralf1991]

Zojuist getest, bedankt Niels!

 

[zapatr]

@Ralf,
dat "Uit" in E1 staat weet je vooraf, dus daar moet niet naar zoeken (wat jij wel doet).

Sub macro4()
Dim x As Integer
If Range("J1").Value = 0 Then Exit Sub
For x = 1 To 50
    If Range("A" & x).Value = Range("J1").Value Then
        If Range("B" & x).Value = Range("K1").Value Then
            If Range("C" & x).Value = Range("L1").Value Then
                Range("I1").Value = Range("E" & x).Address
            End If
        End If
    End If
Next x
End Sub