Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Höchster Wert auf zweiter Achse

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
Anzeige
AW: Höchster Wert auf zweiter Achse
06.05.2010 13: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

Anzeige
AW: Höchster Wert auf zweiter Achse
06.05.2010 13:35:48
Wilfied
super herzlichen Dank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige