X-Achse formatieren mit VBA
04.07.2017 16:01:42
Sven
ich habe eine Excel-Datei mit den Blättern "Daten" und "Diagramm". In den Zellen G7:G9 auf dem Blatt "Daten" habe ich Zeitwerte stehen, die ich zunächst mit einer Formel auf ganze Minuten gerundet habe. Diese drei Werte sollen als Minimum-Grenze, Maximum-Grenze und Hauptintervall der X-Achse des Diagramms auf dem Blatt "Diagramm" eingestellt werden.
Ausgelöst werden soll das Makro am besten, wenn sich der Wert in einer der Zellen G7:G9 ändert.
Nach Internet-Recherche habe ich eine Vorlage gefunden und diese angepasst, allerdings funktioniert der Code nicht:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Worksheets("Daten").Range("G7:G9")) Is Nothing Then Exit Sub
With Worksheets("Diagramm").ChartObjects("Diagramm 4").Chart.Axes(xlValue)
On Error Resume Next
.MinimumScale = Worksheets("Daten").Range("G7").Value
.MaximumScale = Worksheets("Daten").Range("G8").Value
.MajorUnit = Worksheets("Daten").Range("G9").Value
.MinimumScaleIsAuto = (Worksheets("Daten").Range("G7") = "")
.MaximumScaleIsAuto = (Worksheets("Daten").Range("G8") = "")
.MajorUnitIsAuto = (Worksheets("Daten").Range("G9") = "")
End With
End Sub
Kann jemand einem blutigen VBA-Anfänger auf die Sprünge helfen?VG Sven