Breuchte dringend Hilfe mit meinem Programm zur Berechnung von Vollzylinder ,Hohlzylinder auf der schiefen Ebene.Und zwar habe ich jeweils in der Excel Tabelle1 und 2 X-und Y Werte die in ein Diagramm eingelesen werden.
Sub Grafik()
'Grafik Makro
'Makro am 18.04.03 von B. Bock aufgezeichnet
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Range("A2:B1000").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A2:B10000")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
Range("A1").Select
End Sub
Sub Grafik1()
'Grafik Makro
'Makro am 18.04.03 von B. Bock aufgezeichnet
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Range("A2:B1000").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range("A2:B1000")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle2"
Range("A1").Select
End Sub
Das einzige Problem was ich habe ist:das er immer wieder ein neues Diagramm pro Rechnung anlegt.Ich will es aber so haben, dass er nur die Werte im Diagramm ändert und nicht ein komplett neues Diagramm öffnet.Wie geht das??Und wie gebe ich dem Diagramm über VBA ein Namen + Achsenbeschriftung + einen Namen für die Legende???und wie kann ich es über VBA bestimmen wo das diagramm in der Excell Tabelle erscheint??
Wäre super nett wenn mir jemand helfen könnte!!!
MFG
Benjamin