Beschriftung der Rubrikenachse in Excel-Diagrammen mit VBA
Schritt-für-Schritt-Anleitung
Um die Rubrikenachse in einem Excel-Diagramm korrekt zu beschriften, kannst du das folgende VBA-Makro verwenden. Stelle sicher, dass die Werte für die Beschriftung der Rubrikenachse in den Zellen A1 bis F1 stehen.
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
Häufige Fehler und Lösungen
-
Die Rubrikenachse wird nicht korrekt beschriftet:
- Stelle sicher, dass du die Werte in den Zellen A1 bis F1 hast. Wenn du
Set xlRange = xlWS.Range(xlWS.Cells(1, 1), xlWS.Cells(lngNumRows, lngNumCols)) verwendest, wird die Beschriftung möglicherweise nicht korrekt übernommen. Achte darauf, die richtigen Zeilen und Spalten zu wählen.
-
Diagramm zeigt nur 1, 2, 3,... anstatt der gewünschten Werte:
- Überprüfe, ob die X-Werte im Diagramm korrekt gesetzt sind. Du musst die
SeriesCollection(1).XValues korrekt anpassen, um die Rubrikenachse richtig zu beschriften.
Alternative Methoden
Wenn du mit VBA nicht vertraut bist, kannst du die horizontale Achsenbeschriftung in Excel auch manuell anpassen:
- Klicke mit der rechten Maustaste auf die Rubrikenachse im Diagramm.
- Wähle „Achse formatieren“.
- Im Bereich „Achsenoptionen“ kannst du die Achsenbeschriftungen anpassen und die gewünschten Werte eingeben.
Praktische Beispiele
Angenommen, du hast folgende Werte in den Zellen A1 bis F1: 0, 100, 250, 500. Mit dem oben genannten VBA-Makro wird das Diagramm diese Werte als Beschriftung auf der Rubrikenachse verwenden. Achte darauf, dass deine Daten in der richtigen Reihenfolge und im richtigen Format vorliegen.
Tipps für Profis
- Nutze die xlws-Objekte, um eine bessere Performance bei der Arbeit mit großen Datensätzen zu erzielen.
- Experimentiere mit verschiedenen Diagrammtypen, um das beste Ergebnis für deine Daten zu erzielen.
- Verwende das
Application.ScreenUpdating = False-Kommando, um die Bildschirmaktualisierung während des Makroablaufs zu deaktivieren, was die Ausführungsgeschwindigkeit erhöht.
FAQ: Häufige Fragen
1. Wie kann ich die Achsentitel in einem Diagramm ändern?
Du kannst die Achsentitel im VBA-Code anpassen, indem du den Text in .AxisTitle.Characters.Text änderst.
2. Funktioniert dieses Makro in allen Excel-Versionen?
Das Makro sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen, einschließlich Excel 2010 und neuer. Achte darauf, dass die Makros aktiviert sind.