Beschriftung der Rubrikenachse mittels VBA

Sub Diagramm() Dim xlWS As Object Dim xlRange As Range Dim lngNumRows As Long Dim lngNumCols As Long Set xlWS = ThisWorkbook.Worksheets("Daten Bewertung") lngNumRows = xlWS.Range("A1").End(xlDown).Row lngNumCols = xlWS.Range("A1").End(xlToRight).Column Set xlRange = xlWS.Range(xlWS.Cells(2, 1), xlWS.Cells(lngNumRows, lngNumCols)) CreateChartObjectRange xlRange Set xlRange = Nothing Set xlWS = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Herbert,
vielen Dank für deine schnelle Antwort. Hab vorher aus versehen nicht den ganzen Quellcode gepostet. Hier ist der ganze Code für die Grafische Auswertung von Testdaten.
Diese Auswertung soll immer wieder mit neuen Daten erstellt werden. Das Problem war dass die Rubrikenachse im Diagramm 1,2,3,... heißt. Die richtige Beschriftung soll jedoch lauten (0, 100, 250, ...) Diese Werte stehen in den Feldern A1 - F1. Leider bekomm ich es nicht hin, dass das Diagramm diese Werte für die Überschrift übernimmt.
Wär dir super-dankbar, wenn Du mir weiterhelfen könntest.
Gruß Alex
Sub Diagramm()
Dim xlWS As Object

Dim xlRange As Range

Dim lngNumRows As Long
Dim lngNumCols As Long
Set xlWS = ThisWorkbook.Worksheets("Daten Bewertung")
lngNumRows = xlWS.Range("A1").End(xlDown).Row
lngNumCols = xlWS.Range("A1").End(xlToRight).Column
Set xlRange = xlWS.Range(xlWS.Cells(2, 1), xlWS.Cells(lngNumRows, lngNumCols))

CreateChartObjectRange xlRange
Set xlRange = Nothing
Set xlWS = Nothing
End Sub


Sub CreateChartObjectRange(ByVal xlRange As Range)
Dim oChart As Object
Set oChart = Application.Charts.Add
ActiveSheet.Name = ("Diagramm Bewertung")
With oChart
.ChartType = xlLineMarkers
.SetSourceData Source:=xlRange, PlotBy:=xlRows
'Beschriftung Diagramm
.HasTitle = True
.ChartTitle.Text = "Temperature"
'Beschriftung Achsen
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Cycles"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Relative optical Power"
End With
oChart.HasLegend = False
oChart.HasDataTable = False
Set oChart = Nothing
End Sub

warum machst du das nicht in einem Makro:

Sub Diagramm()
Dim xlWS As Object, xlRange As Range
Dim lngNumRows As Long, lngNumCols As Long
Dim oChart As Object, xv
xv = Array([a1], [b1], [c1], [d1], [e1], [f1])
Set xlWS = ThisWorkbook.Worksheets("Daten Bewertung")
  lngNumRows = xlWS.Range("A1").End(xlDown).Row
  lngNumCols = xlWS.Range("A1").End(xlToRight).Column
Set xlRange = xlWS.Range(xlWS.Cells(2, 1), xlWS.Cells(lngNumRows, lngNumCols))

Application.ScreenUpdating = False
Set oChart = Application.Charts.Add
ActiveSheet.Name = ("Diagramm Bewertung")

  With oChart
    .ChartType = xlLineMarkers
    .SetSourceData Source:=xlRange, PlotBy:=xlRows

    'Beschriftung Diagramm
    .HasTitle = True
    .ChartTitle.Text = "Auswertung"

    'Beschriftung Achsen
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Zyklen"
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Power"
    .SeriesCollection(1).XValues = xv
   End With

   oChart.HasLegend = False
   oChart.HasDataTable = False
  ActiveWindow.Zoom = 85
  ActiveChart.Deselect
  Application.ScreenUpdating = True
Set oChart = Nothing
Set xlRange = Nothing
Set xlWS = Nothing
End Sub

gruß Herbert

Beliebteste Forumthreads (12 Monate)

Beschriftung der Rubrikenachse mittels VBA

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Beschriftung der Rubrikenachse mittels VBA

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread