title image


Smiley Diagramm mit VBa erstellen
Hallo zusammen,

ich möchte gerne per VBA ein Diagramm mit sehr vielen Kurven erstellen.

Eigentlich funktioniert das Ganze auch, allerdings stimmt die X-Achse nicht.

Es werden dort die Stützpunkte angezeigt und nicht die Werte die im X-Bereich

stehen, also 1, 2, 3 statt 100, 200, 300 wenn die Tabelle so aussieht.



100 y1

200 ...

300 ..



Mein Code sieht so aus, diag ist ein leeres Diagramm vom Typ xlXYScatterLinesNoMarkers:



Sub addCurve(diag As chart, x As Range, y As Range)

  With diag

Select Case .SeriesCollection.Count

Case 0 To 254:

With .SeriesCollection.newSeries

.ChartType = xlXYScatterLinesNoMarkers

.XValues = x

.Values = y

.Name = y.Cells(1, 1) & diag.SeriesCollection.Count

.MarkerStyle = xlNone

End With

End Select

End With

End Sub



MfG

leo

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: