Thema Datum  Von Nutzer Rating
Antwort
Rot Liniendiagramm X-Achse andere Werte zuweisen
 04.07.2008 06:52:56 Sternze
NotSolved
04.07.2008 07:50:40 sternze
NotSolved

Ansicht des Beitrags:
Von:
Sternze		 Datum:
04.07.2008 06:52:56		 Views:
3222		 Rating:
     
Antwort:
  Ja
Thema:
Liniendiagramm X-Achse andere Werte zuweisen
Hi!

Ich habe ein Problem, und zwar:

Ich habe Daten für ein Diagramm in einem Tabellenblatt, sieht inetwa so aus:

X-Achse|Werte1|Werte2|Werte3
-0,01| 0,9| 0,8| 0,001
-0,02| 0,8| 0,7| 0,002
usw.

Ich kann das Diagramm mittels VBA ganz normal zeichnen, aber ich möchte noch der X-Achse die Werte der Spalte "X-Achse" zuweisen.

Der Diagrammtyp ist "xlLine"


Ich habe mich schon über Google schlaugemacht, aber leider konnte mir niemand helfen.


aja, der Code:


Sub drawDiagramm()

Dim wksData As Worksheet
Dim rngData As Range

Dim nRowsCnt As Long
Dim nColsCnt As Integer

Dim objChart As Chart
Dim objChartObj As ChartObject

On Error GoTo err_CreateChart

Set wksData = ThisWorkbook.Worksheets(1)

With wksData
nRowsCnt = .Cells(.Rows.Count, 5).End(xlUp).Row
nColsCnt = .Cells(1, .Columns.Count).End(xlToLeft).Column

Set rngData = .Range(.Cells(1, 5), .Cells(nRowsCnt, nColsCnt))
End With

Application.ScreenUpdating = False

Set objChart = Application.Charts.Add
With objChart
.ChartType = xlLine
.SetSourceData Source:=rngData, PlotBy:=xlColumns
.HasTitle = True
.ChartTitle.Text = "Diagramm"
.Location Where:=xlLocationAsObject, Name:=wksData.Name
End With

Set objChartObj = wksData.ChartObjects( _
wksData.ChartObjects.Count)
With objChartObj
.Left = 10
.Top = 50
.Width = 300
.Height = 200
End With

wksData.Range("E1").Select

exit_sub:
On Error Resume Next
Application.ScreenUpdating = True

Set objChartObj = Nothing
Set objChart = Nothing

Set rngData = Nothing
Set wksData = Nothing

On Error GoTo 0
Exit Sub

err_CreateChart:
MsgBox "Fehler " & Err.Number & vbCrLf & Err.Description, _
vbOKOnly + vbCritical
Resume exit_sub


End Sub



Danke im Voraus

Sternze

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 Liniendiagramm X-Achse andere Werte zuweisen
 04.07.2008 06:52:56 Sternze
NotSolved
04.07.2008 07:50:40 sternze
NotSolved