|
Ja, das würde gehen, aber leider verwende ich die Formel für mehrere Berechungen und jedes mal wenn die Berechnung negtiv ist, soll ein anderes Makro gerufen werden.
Sub Test1
Call Test2("Test3", "A1", "A2", 0)
Call Test2("Test4", "B1", "B2", 0)
Call Test2("Test5", "C1", "C2", 0)
Call Test2("Test6", "D1", "D2", 0)
End Sub
Sub Test2( par1, par2, par3, par4 As String)
If .Range(par2).Value = 1 Then
.Range(par3).Value = par4
Else Call par1
End If
End Sub
Sub Test3
.Range("A3").Value = "ok"
End Sub
Sub Test4
.Range("B3").Value = "ok"
End Sub
Sub Test5
.Range("C3").Value = "ok"
End Sub
Sub Test6
.Range("D3").Value = "ok"
End Sub
|