Office: (Office 2013) Achsengrenzen aus Zelle übernehmen

xlph · 31. März 2015

UDF = UserDefinedFunction

Also eine benutzerdefinierte Funktion, die in [E8] steht:
Code:

=DiagrammxAchsenAnpassen("Diagramm 1";B44;B43)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Code dazu befindet sich in Modul1:
Code:

Public Function DiagrammXAchsenAnpassen(DiagrammName As String, XAchseMin As Variant, XAchseMax As Variant)

With Application.Caller.Worksheet.ChartObjects(DiagrammName).Chart
' X-Achse
If IsMissing(XAchseMax) Then
.Axes(xlCategory).MaximumScaleIsAuto = True
Else
.Axes(xlCategory).MaximumScale = XAchseMax
End If
If IsMissing(XAchseMin) Then
.Axes(xlCategory).MinimumScaleIsAuto = True
Else
.Axes(xlCategory).MinimumScale = XAchseMin
End If

End With

DiagrammXAchsenAnpassen = "DXAA(" & DiagrammName & "):OK"

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Teste ein wenig rum.

shurka · 31. März 2015

Das ist genau das was ich wollte!! *hands *top

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B11:C40")) Is Nothing Then With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory) .MinimumScale = Application.Min(Range("B44:C44")) .MaximumScale = Application.Max(Range("B43:C44")) End With End If End Sub

Office: (Office 2013) Achsengrenzen aus Zelle übernehmen

Achsengrenzen aus Zelle übernehmen

Achsengrenzen aus Zelle übernehmen

Achsengrenzen aus Zelle übernehmen - Similar Threads - Achsengrenzen Zelle übernehmen

Excel Blattschutz & Power Query – bestimmte Zellen freigeben, aber Aktualisierung weiterhin erlauben

Tabelle mit verbundenen Zellen zur Weiterverarbeitung umwandeln

Combox leere Zelle ignorieren

Zellen-Eintrag in Zellen-Name

Positionsnummern Vergabe bei (Verbundene Zellen)

Leere Zelle farblich füllen

Eine Zelle blinken lassen