automatische anpassung von Daten in Diagramm
27.11.2017 19:51:08
Daten
ich habe ein Kleins Problem bei VBA Programmierung.
ich will mittels VBA ein Diagramm automatisch anpassen wenn andere Quellendaten auswählt werden.
der Auswahl der Daten erfolgt in VBA durch einen Autofilter.
einfach erklärt: durch kliken auf einen Auswahl in Combobox wird Makro3 ausgeführt und eine Zeile in Tabellenblatt1 als ergebniss ausgegeben. diese Zeile soll im Diagram dargestellt werden. ein weitere Auswahl in Combobox gibt einen anderen Zeile aus, die dann die alte Zeile ersetzt und im Diagram dargestellt wird.
die ausgegebene Zeile an sich wird durch das Autofilter erzeugt bzw. gesucht.
hier das Code dazu:
Private Sub ComboBox2_Change()
actWsh = Worksheets("GUI").ComboBox3.Text
Call Makro3
letztezeile = Worksheets(actWsh).Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("GUI").Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Sheets(actWsh).Range("B1:L" & (letztezeile + 1))
End Sub
Makro3:
Public Sub Makro3()
Dim actWsh, actwsh1, actwsh2 As String
actWsh = Worksheets("GUI").ComboBox3.Text
actwsh1 = Worksheets("GUI").ComboBox1.Text
actwsh2 = Worksheets("GUI").ComboBox2.Text
letztezeile = Worksheets(actWsh).Cells(Rows.Count, 2).End(xlUp).Row
Worksheets(actWsh).Range("A1:L" & letztezeile).AutoFilter Field:=1, Criteria1:=actwsh1
Worksheets(actWsh).Range("A1:L" & letztezeile).AutoFilter Field:=2, Criteria1:=actwsh2
End Sub
das Problem liegt darin, das der Code immer bei jedem neuen Auswahl (also ausführen von "makro3") einen neuen Diagramm erzeugt.
ich will jedoch, dass die Daten immer in der Selben Diagramm angepasst werden.
freue mich auf eure Anregungen und bedanke ich mich im Voraus für eure Hilfe