Moin Leute,
anbei eine Bsp. Datei. Derzeit filtert man mit der Userform und kopiert, die gefilterten Daten, in ein neues Tabellenblatt. In der ListBox werden alle Tabellenblätter angezeigt.
Ziel: Klick auf CommandButton6 soll bewirken, dass das beigefügte Diagramm sich automatisch an das angeklickte Tabellenblatt anpasst. Also ich klicke in der ListbBox ein Tabellenblatt an und er fügt mir direkt das Diagramm, welches auf das angeklickte Tabellenblatt referiert, ein.
LG
Hallöchen,
so sieht ein aufgezeichneter Code zur Änderung der Datenquelle aus:
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range("A1:A3")
Range("J8").Select
End Sub
Ich habe beim Aufzeicnen aus Tabelle1 Tabelle2 gemacht ...
Sagt dir die Formel: FormulaR1C1 etwas?
Besteht die Möglichkeit über diese Formel das ganze zu lösen?
Also im Prinzip das auf jedem Diagramm, in Zelle A1 der Tabellenblattname von dem linken oder rechten Tabellenblatt angezeigt wird, dann die Formel so anpassen, das automatisch anhand von Tabelle A1 angepasst wird.
Hallöchen,
FormulaR1C1 hat aber was mit der Art eines Formeleintrags in eine Zelle zu tun und nicht mit der Datenquelle eines Diagramms. So richtig klar ist das Problem aber noch nicht beschrieben. Am Anfang sollte sich ein Diagramm anpassen und eins eingefügt werden. Du schreibst weiter, dass Du in A1 das linke oder rechte Tabellenblatt anzeigst. Was hat das damit zu tun? Auf dem Blatt Diagramm2 ist in A1 eine Auswahl mit Kürzeln, aber solche Tabellenblätter gibt es nicht
Wenn Du da ein neues Blatt einfügst und die Daten und ein Diagramm dazu, warum nimmst Du nicht ein ziemlich leeres Blatt mit einem Diagramm als Vorlage? Du brauchst dann nur das Blatt zu kopieren und in den Datenbereich die Daten einzufügen.
Im Prinzip machst Du so was in der Art ja schon, wenn Du auf den Commandbutton 6 drückst. Aber auf dem Diagrammblatt hab ich kein Diagramm gesehen - oder hab ich was übersehen?
Wenn die Datenquelle auf dem gleichen Blatt wie das Diagramm ist, passt sich der Blattname beim Kopieren und Umbenennen automatisch mit an.
ich bin schon ein Stück weiter, ich verfasse mal zeitnah ein nächsten Thread wo es genauer erklärt ist hoffentlich :)
sehen uns vielleicht ja da :100: