hallo,
habe folgendes problem.
möchte 2 oder mehrere punktdiagramme erstellen aus daten der Tabelle2 (Data). bei meinem code verschwindet jedoch wenn ich ein diagramm einlese immer das andere. kann mir jemand helfen?
der code der 2 buttons zum einlesen sieht bisher so aus:
Private Sub CommandButton5_Click()
Dim i As Integer
Dim ecke As Integer
'1 Graphik erstellen
Sheets("Data").Select
Range("B3:D21").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Data").Range("B3:D21"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).HasTitle = True
End With
For i = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(i)
.Top = 10
.Left = 10
.Height = 150
.Width = 300
End With
ecke = ecke + 160
Next i
End Sub
Private Sub CommandButton6_Click()
Dim j As Integer
Dim ecke As Integer
'2 Graphik erstellen
Sheets("Data").Select
Range("B23:D33").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Data").Range("B23:D33"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = True
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
For j = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(j)
.Top = 170
.Left = 10
.Height = 150
.Width = 300
End With
ecke = ecke + 160
Next j
End Sub
grüße
maekk |