diagramm-daten mittels drop down auswählen

Question

hallo

ich habe mehrere tabellen und habe diesen einen namen gegeben

zudem habe ich ein dropdown feld erstellt mit dem ich diese namen auswählen kann

wenn ich nun ein diagramm erstelle und per hand den namen eintrage funktioniert alles einwandfrei aber wenn ich die zelle des dropdown fensters auswähle kommt eine fehlermeldung das ich meine formel überprüfen solle oder er zeigt im diagramm nur den wert der zelle an

ist meine idee eigentlich realisierbar ???

grüße

Answer 1

Danke schonmal

hier eine abgespeckte version meines probs.

wahrscheinlich ganz easy zu lösen wenn man weiss wie :D


4798559/Hilfe-.Diagramm.xlsx.html">www.file-upload.net/download-
4798559/Hilfe-.Diagramm.xlsx.html


mit den einfügen in das diagramm bin weiss ich jetzt nicht so genau
wie das funktioniert

Answer 2

Hi Chris,

dein Link führt zu keinem Download - Datei nicht vorhanden.

Bis später,
Karin

Answer 3

Hallo Beverly,
du musst das <br> aus dem Link entfernen, um an die Datei zu
kommen.

Gruss

Answer 4

Sorry jetzt sollte es passen

http://www.file-upload.net/download-4798559/Hilfe-.Diagramm.xlsx.html

Answer 5

Hi Chris,

aus deiner Arbeitsmappe werde ich leider nicht schlau. In deinem Eröffnungsbeitrag hast du geschrieben, dass du verschiedene Tabellenblätter hast, auf die sich dein Diagramm beziehen soll. In der Beispielmappe ist es nur 1 Tabellenblatt mit 3 Teil-Tabellen. Außerdem enthält das DropDown A,B,C - also die Namen der 3 Datenreihen in der 1. Teiltabelle, das Diagramm jedoch beinhaltet schon alle 3 Datenreihen A,B,C.

Bis später,
Karin

Answer 6

hallo sorry da war mein beispiel nicht so gelungen ich habe es versucht
zu verbessern :D


http://www.file-upload.net/download-4798914/Hilfe-.Diagramm.xlsx.html

Answer 7

Hi Chris,

weise dem Steuerelement dieses Makro zu:

Sub Dia()
Dim strBereich As String
Dim lngZeile As Long
lngZeile = ActiveSheet.Shapes(ActiveSheet.Application.Caller).ControlFormat.ListIndex
strBereich = Range(ActiveSheet.Shapes(ActiveSheet.Application.Caller).ControlFormat.ListFillRange).Cells(lngZeile)
ActiveSheet.ChartObjects(1).Chart.SetSourceData Source:=Range(strBereich)
End Sub

Bis später,
Karin

Answer 8

wow vielen Dank das schaut schon sehr knifflig aus ich versuche es gleich umzusetzen

Answer 9

1a klasse danke schön :D vielen dank