Verwijzing naar ander tabblad laten afhangen van de waarde van een cel

[dendalle]

Hallo iedereen,

Ik ben bezig met een Excel op te maken. Dit zou dienen voor het invoeren van diverse gegevens per maand waarbij ik later op een overzichtsblad een totaal wil maken.
Ik heb dus volgende tabbladen: Overzicht / Jan. / Febr. / Mrt. / Apr.

In het tabblad Overzicht zou dan enkel in cel A1 de correcte datum moeten worden ingegeven waarbij Excel de correcte totalen gaat ophalen.

Bijvoorbeeld als ik 06/02/2015 invoer in cel A1 in het tabblad 'Overzicht', dan zou in cel A3 het corresponderende bedrag bedrag moeten komen.

Ik wou enkel weten of er een beter manier is om dit in een formule te gieten dan diegene die ik gebruikt heb aangezien de formule nog groter zal worden naarmate ik meer maanden zou gebruiken.
zijnde: =IFERROR(HLOOKUP(A1;IF(MONTH(A1)=1;Jan.;IF(MONTH(A1)=2;Febr.;IF(MONTH(A1)=3;Mrt.;Apr.)));2;0);0)

En is dit mogelijk zonder gebruik te maken van VBA-code?


Bijkomend vraagje: is dit ook mogelijk om hetzelfde te doen indien de tabbladen andere excel-bestanden zijn?

In bijlage een testbestandje ter voorbeeld.

Groetjes,
dendalle
Bekijk bijlage 244187

 

[VenA]

Een simpel antwoord op een veel te lange vraag.

=VERSCHUIVING(INDIRECT(TEKST(A1;"mmm"&".")&"!A1");1;DAG(A1)-1)

als ik het goed gelezen heb

 

[HSV]

Dit stukje iets ingekort.

TEKST[COLOR=#000099]([/COLOR]A1[COLOR=#0000FF];[/COLOR][COLOR=#CC0000]"mmm[/COLOR][COLOR=#CC0000]."[/COLOR][COLOR=#000099])[/COLOR][COLOR=#0000FF]&[/COLOR][COLOR=#CC0000]"![/COLOR]

 

[dendalle]

Heel erg bedankt hiervoor!

Maar hebben jullie ook een oplossing in geval in 1 werkmap maak met het tablad overzicht. En dat de tabbladen met de maanden in een aparte werkmap staan?
Ik herinner me dat de functie INDIRECT hier niet bij gebruikt zou kunnen worden tenzij alle werkmappen geopend zouden zijn.

Alvast heel erg bedankt voor jullie respons!

 

[VenA]

En is dit mogelijk zonder gebruik te maken van VBA-code?

en

Ik herinner me dat de functie INDIRECT hier niet bij gebruikt zou kunnen worden tenzij alle werkmappen geopend zouden zijn.

Volgens mij gaat deze combinatie niet samen.

 

[HSV]

Met het bestand open:

=VERSCHUIVING(INDIRECT("[Testbestand.xlsx]"&TEKST(A1;"mmm.")&"!A1");1;DAG(A1)-1)

 

[dendalle]

en

Volgens mij gaat deze combinatie niet samen.

Zou dit dan wel lukken met VBA-code?

 

[HSV]

Bv. met:

Sub hsv()
 With Sheets("overzicht")
  .Cells(3, 1) = GetObject("c:\users\dendalle\map1\testbestand.xlsx").Sheets(Application.Text(.Cells(1), "mmm.")).cells(1).Offset(1, Day(.Cells(1) - 1)).Value
 End With
End Sub

**************************
Verander in de code het pad naar het bestand.
Verander ook de bladnamen in het Engels.
Mrt. wordt Mar. enz.
Eenvoudig te realiseren met:

msgbox application.text(cells(1),"mmm")

**************************

 

[dendalle]

Heel erg bedankt voor de hulp iedereen.

Al zou ik nog heel even beroep willen doen op jullie

Ik heb nu enkele gelinkte bestanden. Alleen zijn ze eigenlijk bedoeld voor op een andere computer.
Hoe zou ik deze bestanden nu samen kunnen verplaatsen zodat de bestanden gelinkt blijven met elkaar en niet blijven verwijzen naar de oorspronkelijke locatie?
Ik heb reeds getracht ze te kopiëren, te comprimeren in een zip bestand, maar de formules blijven verwijzen naar de oorspronkelijke locatie.

Ik kan me enkel inbeelden dat ik de formule "indirect" zal moeten gebruiken in VBA-code. (Hetgeen ik momenteel niet heb gedaan omdat dit problemen zou kunnen geven)
Vandaar dat ik me afvraag of dit toch nog mogelijk zou zijn op een andere manier.

 

[HSV]

Ik heb geen idee wat je doet, maar probeer dit eens.

Sub hsv()
 With Sheets("overzicht")
  .Cells(3, 1) = GetObject("c:\users\dendalle\map1\testbestand.xlsx").Sheets(Application.Text(.Cells(1), "mmm.")).cells(1).Offset(1, Day(.Cells(1) - 1)).Value
 End With
[COLOR=#FF0000]ActiveWorkbook.ChangeLink ThisWorkbook.FullName, ActiveWorkbook.FullName, xlLinkTypeExcelLinks[/COLOR]
End Sub