Togglebutton erstellen
01.04.2009 10:14:58
Sepp
habe folgende zwei Makros, welche jetzt zwei Buttons zugewiesen sind. Ich möchte aber an Stelle der beiden Buttons ein Toggle-Button. Sprich, wenn er reingedrückt wird, soll Makro1 ausgeführt werden, wenn er gelöst wird, dann Makro2. Wie mach ich das?
Hier meine beiden Makros:
Sub Makro1()
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
Sub Makro2()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
Gruss Sepp