Stop Makro, hvis betingelsen er falsk
Jeg står og skal lave 2 makroer, der henholdsvis tilføjer og fjerner en dataserie i en graf.Det kan også godt lade sig gøre, men for hver af de 2 makroer får jeg et problem:
Tilføj-Makro: Her er problemet, at jeg kan blive ved at trykke på knappen, hvorefter makroen tilføjer datasereien igen og igen. Den skal selvfølgelig kun kunne gøre det, hvis serien ikke er i grafen.
Fjern-Makro: Her er problemet, at debuggeren går igang, hvis man trykker på fjern-knappen uden at dataserien er i grafen, f.eks. hvis man kommer til at klikke 2 gange.
Koden fremgår her. Jeg håber nogen kan hjælpe
Sub Tilføj()
'
' Tilføj Macro
'
'
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(8).Name = "='Uddata S26'!$A$6"
ActiveChart.SeriesCollection(8).Values = "='Uddata S26'!$B$6:$Y$6"
ActiveChart.SeriesCollection(8).ChartType = xlLine
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select
End Sub
Sub Fjern()
'
' Fjern Macro
'
'
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(8).Delete
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Range("A1").Select
End Sub