Hallo zusammen,
ich habe eine userform erstellt, die beim start der Excel Datei eine Eingabe einfordert. hier soll ein Wert eingetragen werden, der nach dem Klicken auf meinen Command_Button, dieser Wert in meiner Tabelle auf der y-Achse gesucht wird und nur die entsprechende Zeile in mein Diagramm einträgt.
bisher hab ich es nur hinbekommen alle Werte darstellen. Und zudem müsste mein Diagramm die x und y-Achse tauschen, um die Werte richtig darzustellen.
Ich hoffe mir kann da jemand weiterhelfen!
Vielen Dank schon mal im Voraus!
Private
Sub
CommandButton1_Click()
ThisWorkbook.Charts.Add After:=Worksheets(
"Tabelle1"
)
ActiveChart.SetSourceData Worksheets(
"Tabelle1"
).Range(
"A1:V76"
)
ActiveChart.Name =
"Auswertung"
Dim
MeinDiagramm
As
Chart
Set
MeinDiagramm = ThisWorkbook.Charts(
"Auswertung"
)
MeinDiagramm.ChartType = xlLine
MeinDiagramm.HasTitle =
True
MeinDiagramm.ChartTitle.Text =
"forecast"
With
MeinDiagramm.Axes(xlCategory)
.HasTitle =
True
.AxisTitle.Text =
"Messpunkte"
End
With
With
MeinDiagramm.Axes(xlValue)
.HasTitle =
True
.AxisTitle.Text =
"forecast"
.MinimumScale = 10
.MaximumScale = 900
End
With
End
End
Sub
Private
Sub
TextBox3_Change()
End
Sub