Thema Datum  Von Nutzer Rating
Antwort
Rot 2 diagramme in eine tabelle
 13.03.2007 17:53:41 maekk
NotSolved
14.03.2007 10:09:05 Rasta
NotSolved
14.03.2007 13:17:50 dragan
NotSolved

Ansicht des Beitrags:
Von:
maekk		 Datum:
13.03.2007 17:53:41		 Views:
1909		 Rating:
     
Antwort:
  Ja
Thema:
2 diagramme in eine tabelle
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot 2 diagramme in eine tabelle
 13.03.2007 17:53:41 maekk
NotSolved
14.03.2007 10:09:05 Rasta
NotSolved
14.03.2007 13:17:50 dragan
NotSolved