Excel bij bepaalde celwaarde andere grafiek

[Verwijderd]

Is het mogelijk om in Excel afhankelijk van een celwaarde een andere grafiek te tonen? Bijvoorbeeld als de celwaarde is "vloer" dan grafiek:


celwaarde is "gevel" dan grafiek:


celwaarde is "dak" dan grafiek:


Iemand een idee of kan dit niet?

[Panzer_V]

Ja dit is mogelijk, natuurlijk! Het is zelfs heel eenvoudig. Het enige wat je hiervoor moet doen is een stukje VBA code programmeren. In deze code programmeer je vervolgens het type grafiek dat getoond moet worden afhankelijk van de waarde in de cel die aangeeft welke grafiek je wilt zien.

Uiteraard koppel je deze code aan een "Change" command van de specifieke cel. Dan houdt Excel zelf bij wanneer ie de code moet executen.

Zonder VBA gaat dit je overigens gegarandeerd niet lukken. Dus als je niet kunt/ wilt programmeren dan zou ik e.e.a. snel opgeven en links laten liggen ;-)

[ Voor 13% gewijzigd door Panzer_V op 20-07-2015 19:45 ]

[Fish]

De macro recorder is natuurlijk ook handig he ..

[Panzer_V]

Absoluut. Maar gaat hiervoor geen uitkomsten bieden. Dit zal een stukje specifieke code moeten worden. Daarnaast genereert de macro recorder standaard zo'n 95% trash code ;-) Dat moet je niet willen

[Fish]

Veel trash komt er ook in door onnodige handelingen van de gebruiker imho. maar het neemt je iig vaak wat werk uit de hand. dan blijft er eenvoudige logica over om af te maken
(ik gebruik het niet vaak duzz scheelt het mijn persoonlijk wel wat zoekwerk.)

[Verwijderd]

Ik heb eigenlijk geen ervaring met VBA, kunnen jullie me iets meer helpen? Ik heb een voorbeeld bestandje toegevoegd. De grafiek hangt dan af van de waarde in cel E1. Hoe moet ik dat doen? Bij voorbaat dank voor jullie hulp

[TimMer]

Verwijderd schreef op maandag 20 juli 2015 @ 22:39:
Ik heb eigenlijk geen ervaring met VBA, kunnen jullie me iets meer helpen? Ik heb een voorbeeld bestandje toegevoegd. De grafiek hangt dan af van de waarde in cel E1. Hoe moet ik dat doen? Bij voorbaat dank voor jullie hulp

Pseudocode (de lichtblauwe stukken, de rest is echte code):

VBScript:

Private Sub Worksheet_Change(ByVal Target As Range) ' Begin script, draait alleen in het geval er een verandering plaats vindt, alleen voor deze werkmap benaderbaar maken

' Range (bereik) variabele aanmaken voor relevante cellen voor 
Dim KeyCells As Rangeveranderingsdetectie
' String variabele declareren
Dim waarde_E1 as String

' Relevante cellen voor veranderingsdetectie instellen
' Sheets("Input"). kun je weglaten als er maar één worksheet is
Set KeyCells = Sheets("Input").Range("E1")

' Begin veranderingsdetectie
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

      ' Werkblad genaamd Input selecteren
      Sheets("Input").Select
      ' Waarde uit cel E1 in variabele waarde_E1 plaatsen
      waarde_E1 = Range("E1").Value

      ' Begin handelen aan de hand van de waarde in variabele waarde_E1
      Select Case waarde_E1

            ' Als waarde_E1 "Vloer" is dan...
            Case = Vloer
            <stukje code voor vloer>

            ' Als waarde_E1 "Gevel" is dan...
            Case = Gevel
            <stukje code voor vloer>
            ' Als waarde_E1 "Dak" is dan...
            Case = Dak
            <stukje code voor vloer>

            ' Als waarde_E1 een andere waarde dan eerder genoemde drie is dan...
            Case Else
            <stukje code indien andere waarde dan eerder genoemde drie>

      ' Einde handelen aan de hand van de waarde in variabele waarde_E1
      End Select

' Einde veranderingsdetectie
End If

' Einde script
End Sub

De comments ( ' ) kun je uiteraard achterwege laten, is alleen om jou te laten zien wat wat doet.

[ Voor 67% gewijzigd door TimMer op 20-07-2015 23:21 ]

[SmiGueL]

Zoiets?

https://drive.google.com/...Zd0p0SlE/view?usp=sharing

[ Voor 14% gewijzigd door SmiGueL op 12-08-2015 19:50 ]

[Verwijderd]

Hartelijk dank voor jullie reacties, super!
Wegens vakantie heb ik enige tijd de topic niet kunnen checken .
SmiGuel, zou jij het bestandje nog eens willen uploaden?
Bedankt allemaal!

[SmiGueL]

Verwijderd schreef op woensdag 12 augustus 2015 @ 19:01:
SmiGuel, zou jij het bestandje nog eens willen uploaden?
Bedankt allemaal!

Done!

[Verwijderd]