Thema Datum  Von Nutzer Rating
Antwort
Rot Diagramm Wertebereiche zuweisen, dynamisch erweitern
25.06.2014 17:35:13 joerg
Solved
25.06.2014 22:18:00 Gast70555
*****
Solved
29.06.2014 19:24:56 joerg
Solved
29.06.2014 19:30:35 Gast70555
*****
Solved

Ansicht des Beitrags:
Von:
joerg
Datum:
25.06.2014 17:35:13
Views:
424
Rating: Antwort:
 Nein
Thema:
Diagramm Wertebereiche zuweisen, dynamisch erweitern

Hallo,

ich würde gerne einem Diagramm die zugehörigen X-Werte zuweisen und 2 Reihen (Y-Werte) zuweisen.

In Spalte A stehen die X-Werte, in Spalte B und C die beiden Reihen (Y-Werte). In Zeile 2 stehen die Überschriften. Ich bekomme das nur hin wenn ich die Source über den gesamten Spaltenbereich definiere (Spalte A,B,C). Ist das so korrekt oder kann man das anders / weniger fehleranfällig machen? Ich möchte den X- und Y-Werten des Diagramms die zugehörigen Spalten zuweisen und nicht die Source über die 3 Spalten ziehen.

Vielen Dank für die Hilfe im voraus!!

Sub t()
Dim maxWxAxe As Integer
Dim c As Chart
Dim ca As Axis
Dim i As Integer, endzeile As Integer

'ermitteln letzte volle Zelle
For i = 3 To 28
    If (ActiveSheet.Cells(i, 1) = "") Then Exit For
Next i
i = i - 1
endzeile = i

maxWxAxe = Application.WorksheetFunction.Max(ActiveSheet.Range(Cells(2, 1), Cells(i, 1)))

Set c = ActiveSheet.ChartObjects(1).Chart
c.SetSourceData Source:=ActiveSheet.Range(Cells(2, 1), Cells(i, 3))

Set ca = c.Axes(xlCategory)
With ca
    .MinimumScale = 0
    .MaximumScale = maxWxAxe
    .MajorUnit = 1
End With

Set c = Nothing
Set ca = Nothing

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Diagramm Wertebereiche zuweisen, dynamisch erweitern
25.06.2014 17:35:13 joerg
Solved
25.06.2014 22:18:00 Gast70555
*****
Solved
29.06.2014 19:24:56 joerg
Solved
29.06.2014 19:30:35 Gast70555
*****
Solved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar