Sub wird nicht ausgeführt
06.09.2018 16:21:14
Jan
ich versuche mich nun schon seit einigen Tagen daran, über eine Funktion ein "Sub" zu starten. In beiden Fällen funktioniert das "Sub" wenn ich es direkt starte und die Funktion startet das "Sub" auch (habe eine MsgBox in die erste Zeile des Subs gesetzt, die mir dann auch angezeigt _
wurde). Nach start der Funktion wird das "Sub" aber nicht ausgeführt. Eine Lösung konnte ich bisher nicht finden.
Hier der Code:
Function MakroStartStaffel1()
MakroStartStaffel1_Makro
End Function
Sub MakroStartStaffel1_Makro()
ActiveSheet.ChartObjects("Diagramm 4").Activate
ActiveChart.SeriesCollection(1).Select
Selection.Formula = "=SERIES(,,LGR!R6C21:R15C21,1)"
Range("Q4").Select
End Sub
Bei dem "Sub" geht es darum, den Wertebereich einer Tabelle anzupassen, abhängig von dem Wert, auf dem die Funktion basiert.
Das selbe Problem habe ich auch noch in einer Funktion die ein "Sub" mit dem SolverOK startet.