Tekstwaarde van cel weergeven in formule

[rvdmortel]

Hallo allemaal,

Ik ben bezig met een excel bestand, waarin in een planning wil maken. Ik wil de planning in zoverre automatiseren, dat in het overzicht de beschikbaarheid van een werknemer automatisch wordt ingevuld wanneer de medewerker deze beschikbaarheid in een aparte werkmap instuurt. Tot dusverre geen probleem.

Nu zullen de werknemers niet altijd even lang bij ons werken, waardoor de namen in de planning sterk kunnen fluctueren. Ik wil daarom dat wanneer ik de naam van een student veranderd, ook de verwijzing naar de werkmap veranderd. Zie voorbeeld. De gebruikte formule heb ik voor het gemak toegevoegd. Nu wil ik het zo instellen, dat de verwijzing naar de werkmap van de werknemer is gekoppeld aan de naam van de werknemer. In dit geval dient excel dus te moeten zien dat wanneer B1 = tom, de verwijzing in B3 ALS('C:\Planning\[planning tom.xls]weekplanning'!B3="x";"x";"") moet zijn. Als ik nu tom aanpas in Henk, dient de formule dus ALS('C:\Planning\[planning henk.xls]weekplanning'!B3="x";"x";"") te zijn.

Heeft iemand een oplossing? Alvast bedankt voor de moeite.

 

[robdgr]

Iets in deze richting:

=INDIRECT("ALS('C:\Planning\[planning "&B1&".xls]weekplanning'!B6="*";"*";"")")

 

[rvdmortel]

Hey Rob,

Bedankt voor je antwoord. Ik heb het geprobeerd, maar ik krijg bij je formule een foutmelding. Bestand is echter in de map aanwezig, dus daar ligt het niet aan. Eventueel nog een ander idee?

 

[robdgr]

Klopt, het bestand is er wel, maar het bronbestand niet. Je kunt proberen de indirect alleen om de B1 te zetten. Misschien geeft dit meer duidelijkheid.

 

[rvdmortel]

Ik heb wat zitten spelen met INDIRECT, maar krijg tot nu toe alleen maar foutmeldingen. Bronbestand is aanwezig en bij zowel een geopend als een gesloten bestand heb ik nog geen succes. Heb je misschien een werkend voorbeeldje?

 

[Roncancio]

Indirect met een gesloten bestand gaat niet werken.
Wat je bijvoorbeeld kan doen is via VBA in een gesloten kijken.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
    Inhoud = ExecuteExcel4Macro("'C:\Planning\[planning " & [B1] & "]weekplanning'!R3C2")
    If Inhoud = "x" Then [B3] = "x" Else [B3] = ""
End If
End Sub

Met vriendelijke groet,


Roncancio