Verwijzen naar een cel via Range() via waarde uit een cel

[GijsWuyts]

Geachte,

heb volgend code, maar zou de verwijzing naar Range("AG9") kunnen doen door de waarde uit cel AJ5 te nemen, hier staat namelijk AG9 en dit kan wijzigen in functie van een berkening, kan dus even goed AG20 worden en om niet hardcoded dit telkens te moeten wijzigen had ik graag een variabel verwijzing gehad.

Workbooks("wive 2014 alle DNBs.xlsx").Sheets("22").Range("AG9"). _
GoalSeek Goal:=0, ChangingCell:=ActiveCell

Alvast bedankt aan de geïnteresseerden om mij verder te willen helpen!

Grt,
Gijs.

 

[edmoor]

Wijzig .Range("AG9") eens in .Range([AJ5])

 

[GijsWuyts]

Beste,

alvast bedankt voor je antwoord. Maar ik krijg nog een foutmelding.

Misschien had u toch wat meer info nodig...

In cel AJ5 heb ik het volgende staan, heb al geprobeerd met de "" en ook zonder, dus dat er staat "AG9" of gewoon AG9, in beide gevallen werkte het niet.
="""AF"&AFRONDING(SOM(AJ7:AJ69);0)&""""
resultaat van deze formule is "AG9".

Nu de activecell die gewijzigd wordt met doelzoeken bevindt zicht wel in een ander tabblad, zou dit ermee te maken kunnen hebben? en wat is het juiste "AG9" of AG9 als formule die de celverwijzing bepaald?

 

[edmoor]

Wat ik zei is een standaard werking dat gewoon goed gaat. Precies zoals ik het ingetikt heb, dus zonder de " tekens. Plaats anders eens een voorbeeld document.

 

[GijsWuyts]

Beste,

Zal morgen iets plaatsen hier.

Voor de duidelijkheid ik had ook gewoon .Range ([AJ5]) inde macro ingebracht.

Ivm met de ", hiermee bedoelde ik het resultaat in cel AJ5 waar ik dus A9 heb staan al dan niet met ".

Stuur morgen iets door. Alvast bedankybedankt voor de snelle reactie.

 

[GijsWuyts]

Beste,

bij deze de 2 excels, in map1 wordt doelzoeken uitgevoerd voor een waarde die in map2 dient bekomen te worden. Zoals je gaat zien werkt macro1 waarbij Range("H11"), maar macro2 werkt niet waarbij ik Range([K5]) heb staan, waarbij cel K5 als waarde H11 heeft, heb ook al geprobeerd met "H11" maar lukt niet.

Bekijk bijlage Map1.xlsmBekijk bijlage Map2.xlsx

 

[edmoor]

Doe Macro2 eens zo, Map2.xlsm moet dan wel open zijn:

Sub Macro2()
    Dim rBereikL6 As Range
    Dim rBereikM6 As Range
    Dim sBereikL6 As String
    Dim sBereikM6 As String
    
    sBereikL6 = "L6"
    sBereikM6 = "M6"
    
    Windows("Map1.xlsm").Activate
    Range("D19").Select

    With Workbooks("Map2.xlsx").Sheets("Blad1")
        Set BereikL6 = .Range(sBereikL6)
        Set BereikM6 = .Range(sBereikM6)
    End With

    Workbooks("Map2.xlsx").Sheets("Blad1").Range(BereikL6). _
    GoalSeek Goal:=0, ChangingCell:=ActiveCell
    
    Windows("Map1.xlsm").Activate
    Range("e19").Select

    Workbooks("Map2.xlsx").Sheets("Blad1").Range(BereikM6). _
    GoalSeek Goal:=0, ChangingCell:=ActiveCell
End Sub

 

[GijsWuyts]

Dat werkt perfect. THX.