Hallo zusammen,
ich bin Anfänger der VBA-Programmierung und habe deshalb ein Problem.
Ich habe zwei Public Functions, die jeweils ein anderes Sub aufrufen.
Die zwei Functions werden von einer Zelle aus gestartet.
In der Zelle steht folgendes:
=WENN(UND(G11>-25;G11<25);Startmakro();Startmakro1())
Die zwei Makros sehen wie folgt aus:
Public Function Startmakro() As String
Call GrünFärben
Startmakro = "Gestartet."
End Function
Public Function Startmakro1() As String
Call RotFärben
Startmakro1 = "Gestartet."
End Function
Die zwei Subs sehen wie folgt aus:
Sub RotFärben()
ActiveSheet.ChartObjects("Diagramm 1").Activate
With ActiveSheet.Shapes("Diagramm 1").Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Weight = 1.25
End With
End Sub
Sub GrünFärben()
ActiveSheet.ChartObjects("Diagramm 1").Activate
With ActiveSheet.Shapes("Diagramm 1").Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 176, 80)
.Transparency = 0
.Weight = 1.25
End With
End Sub
Leider stürzt Excel jedes Mal ab, sobald die Bedingung in der Zelle erfüllt, bzw nicht erfüllt wird.
Ich kann die Datei also nur mit Deaktivierten Makros starten. Sobald die Makros laufen, stürzt Excel ab.
Vorab vielen Dank für Eure Hilfe,
Gruß, Adi
|