Höchster Wert auf zweiter Achse

Forumthread: Höchster Wert auf zweiter Achse
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Höchster Wert auf zweiter Achse

Wilfied

Hallo Leutz,
leider habe ich auf mein Anliegen keine Antwort bekommen und mein Ursprungsbeitrag ist anscheinend schon verschwunden.
ich habe den Stop Befehl aus dem Makro genommen.
wenn ich jetzt im ersten Register einen Wert ändere, springt der Cursor ins zweite Register. Wenn ich jetzt die Tabelle audfüllen will, muss ich immer zwischen den Registern wechseln.
vielleicht kann mir ja jemand helfen.
https://www.herber.de/bbs/user/69454.xls

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Höchster Wert auf zweiter Achse

fcs
AW: Höchster Wert auf zweiter Achse

Wilfied

AW: Höchster Wert auf zweiter Achse

06.05.2010 15:27:11

fcs

Hall Wilfried,
verwende im Makro eine Objektvariable für das Chart, dann ist ein Blattwechsel nicht erforderlich.
Gruß
Franz
Ereignismakro unter Tabelle "Aufnahmebogen"

Private Sub worksheet_change(ByVal target As Range)
Dim a, oChart As Chart
If Not Intersect(Range("D8:M27"), target) Is Nothing Then
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.EnableEvents = False
a = Sheets(2).Cells(35, 4).Value
Set oChart = Sheets(2).ChartObjects("Chart 1").Chart
oChart.Axes(xlValue, xlSecondary).MaximumScale = a
oChart.Axes(xlValue, xlSecondary).MajorUnit = a / 2
oChart.Axes(xlValue, xlSecondary).CrossesAt = 0
oChart.Axes(xlValue, xlSecondary).MinimumScale = 0
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub