Formule op basis van rij en kolom nummers

[Revdutchie]

Kan je met een formule informatie ophalen uit een ander blad op basis van rij en kolom nummers

in A1 staat de naam van het blad, is in dit geval gewoon een getal (2)
in B1 staat de de rij waaruit ik de info wil halen 4
in C1 staat de kolom waaruit ik de info wil halen 6

het antwoord wat ik in D1 wil hebben is dus de waarde die staat in blad "2" Rij "4" kolom "6"

 

[Thoralf]

Hallo Jaques,

Wat dacht je van

=INDIRECT(ADRES(B1;C1;;;A1))

 

[tilpi]

Zo misschien?

=INDIRECT(ADRES(B1;C1;;;"Blad"&A1))

Mvg

Piet

 

[Revdutchie]

Hallo Jaques,

Wat dacht je van

=INDIRECT(ADRES(B1;C1;;;A1))

Ahh ik zat dicht bij, was al aan het expirimenteren geweest met Adres en Cel en Rij, maar niet met indirect.


Top Thoralf, doet precies wat ik wil :thumb::thumb:

Tilpi, jij ook bedankt :thumb::thumb:

 

[Revdutchie]

Misschien een brug te ver, maar kan dit ook naar een andere gesloten map ?

dus zeg maar C://excel/2010/blad1,rij2, kolom 4

 

[Thoralf]

Hallo Jaques,

Excel kan geen gegevens uit een gesloten map halen. Echter bij het openen van een map met externe verwijzingen, wordt er wel eenmalig bij openen de externe gegevens geupdated.

 

[Revdutchie]

Hallo Jaques,

Excel kan geen gegevens uit een gesloten map halen. Echter bij het openen van een map met externe verwijzingen, wordt er wel eenmalig bij openen de externe gegevens geupdated.

Ok dat is duidelijk, bedankt weer, dan is het bij deze opgelost.

 

[richard1970]

Even een vervelende aanvulling.
Wanneer je de functie INDIRECT gebruikt naar een ander bestand, zul je foutmeldingen krijgen als het bronbestand gesloten wordt en er wordt herberekend.

Richard

 

[Warme bakkertje]

Als je dit combineert met een ExecuteExcel4Macro hoeven de bestanden niet geopend te zijn en kan je mi de waarden ophalen. Nog even werken en dan eens proberen.

 

[Revdutchie]

Hallo Jaques,

Excel kan geen gegevens uit een gesloten map halen. Echter bij het openen van een map met externe verwijzingen, wordt er wel eenmalig bij openen de externe gegevens geupdated.

Ik heb wederom gemerkt zeg nooit het kan niet in excel

=INDIRECT.EXT("'C:\test\[test1.xls]1'!A1")

Dat werkt, je moet er wel de add-in morefunc voor installeren, die is hier te vinden

http://download-free.programas-gratis.net/php/software.php?id_programa=18465&download-Morefunc-5.05

]
.

 

[HSV]

Ik heb wederom gemerkt zeg nooit het kan niet in excel

=INDIRECT.EXT("'C:\test\[test1.xls]1'!A1")

Dat werkt, je moet er wel de add-in morefunc voor installeren, die is hier te vinden

.

Dan kun je net zo goed ='C:\test\[test1.xls]1'!A1 zetten Jacques.
Maar kun je nu de cellen gebruiken van je werkmap, met deze functie?

 

[Revdutchie]

Dan kun je net zo goed ='C:\test\[test1.xls]1'!A1 zetten Jacques.
Maar kun je nu de cellen gebruiken van je werkmap, met deze functie?

Werkt dat dan als het workbook gesloten is ?

PS, nu moet ik nog even de ADRES functie er in gaan bakken.

 

[HSV]

Werkt dat dan als het workbook gesloten is ?

Testen en je weet het.

 

[Revdutchie]

Testen en je weet het.

Juh, heb ik ook meteen gedaan, was iets te snel met reageren, maar ik moet ook de adres functie er nog in zien te krijgen.

 

[HSV]

maar ik moet ook de adres functie er nog in zien te krijgen.

Ik verneem het graag van je als het lukt met de functie =INDIRECT.EXT(
voor evt. eigen gebruik.

 

[Revdutchie]

Dan kun je net zo goed ='C:\test\[test1.xls]1'!A1 zetten Jacques.
Maar kun je nu de cellen gebruiken van je werkmap, met deze functie?

Ok heb de hele dag geprobeerd, maar gaat me met mijn kennis niet lukken.

Maar bovenstaande formule komt al HEEL dicht bij wat ik wil het enige wat ik wil is die laatste 1 dynamisch uit een cel halen. Dus iets van ='C:\test\[test1.xls]1'!A&(B9)

 

[Revdutchie]

Met VBA heb ik het wel werkend, maar dan lukt het me weer niet om meerdere cellen te laten veranderen uit verschillende cellen van het bronbestand

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Run TestGetValue
    p = "C:\Documents and Settings\Anton Willem\Bureaublad\Excel darts\testversie"
    f = "odb2.xls"
    s = "1"
    a = "A" & [a1]
[blad1!A5] = GetValue(p, f, s, a)
End Sub


Private Function GetValue(path, file, sheet, ref)
    Dim arg As String
    If Right(path, 1) <> "\" Then path = path & "\"
    If Dir(path & file) = "" Then
        GetValue = "File Not Found"
        Exit Function
    End If
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
      Range(ref).Range("A1").Address(, , xlR1C1)
    GetValue = ExecuteExcel4Macro(arg)
End Function

 

[Revdutchie]

Ok, gaat wel een lange code worden, maar dit werkt zoals ik wil

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Run TestGetValue
    p = "C:\Documents and Settings\Anton Willem\Bureaublad\Excel darts\testversie"
    f = "odb2.xls"
    s = "1"
    a = "A" & [a1]
[blad1!A5] = GetValue(p, f, s, a)
End If

If Not Intersect(Target, Range("B1")) Is Nothing Then
Run TestGetValue
    p = "C:\Documents and Settings\Anton Willem\Bureaublad\Excel darts\testversie"
    f = "odb2.xls"
    s = "1"
    a = "B" & [B1]
[blad1!B5] = GetValue(p, f, s, a)
End If



End Sub


Private Function GetValue(path, file, sheet, ref)
    Dim arg As String
    If Right(path, 1) <> "\" Then path = path & "\"
    If Dir(path & file) = "" Then
        GetValue = "File Not Found"
        Exit Function
    End If
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
      Range(ref).Range("A1").Address(, , xlR1C1)
    GetValue = ExecuteExcel4Macro(arg)
End Function

 

[Warme bakkertje]

Dan moet verder komen met de Pull-functie van Harlan Grove. Deze gebruikt ook een ExecuteExcel4Macro maar dan gecombineerd met Vert.Zoeken Misschien is dit wel aan te passen aan wat jij nodig hebt.

 

[Revdutchie]

Dan moet verder komen met de Pull-functie van Harlan Grove. Deze gebruikt ook een ExecuteExcel4Macro maar dan gecombineerd met Vert.Zoeken Misschien is dit wel aan te passen aan wat jij nodig hebt.

Rudi, ik was al aan het stoeien met pull en kreeg net zoals wel vaker een ingeving en het wekt

pull wilde ook niet werken met samengevoegde cellen, wat ik nu heb gedaan is

in A1 staat ''C:\test\[test1.xls]1'!A@ (let op de " vooraan zijn 2 enkele ' ' maar daardoor laat hij er 1 zien)

in A3 staat =pull(SUBSTITUEREN(A1;"@";C1))

en nu kan ik in C1 variabel het regelnummer opgeven.

Ga, nu even verder uitvogelen, want er kan denk ik nog wel meer met substitueren.

EDIT: met substitueren kan je alles variabel maken,

ik heb nu in A1 'C:\test\[test1.xls]$'!#@

En in A3 =pull(SUBSTITUEREN(SUBSTITUEREN(SUBSTITUEREN(A1;"$";B2);"#";B1);"@";C1))

Waarbij ik dus de sheetnaam uit B2 haal, Kolom uit B1 en Rij uit C1

Dus bovenstaande haalt data op uit een gesloten workbook, met gebruik van variabelen.

YIPPEE, case solved.