Excel Button 2 Makros zuweisen

[Kelle86]

Hallo zusammen,

ich habe einen Button in Excel eingefügt der beim Mausklick ein Makro ausführt, welches eine Formel zur Berechnung in eine Zelle einfügt.

CODE:

Private Sub CheckBox4_Click()
'
' Formel Makro
' Makro am 02.10.2008 von kelle86 aufgezeichnet
'

'
    Range("G37").Select
    ActiveCell.FormulaR1C1 = "=IF(R[-4]C>=1,R[-32]C[9]*4.8,R[-2]C*20/100)"
    Range("G37").Select
End Sub

Jetzt möchte ich das wenn man den Button nocheinmal drückt die Formel gelöscht wird; anderes Makro:

CODE:

' Löschen Makro
' Makro am 02.10.2008 von kelle86 aufgezeichnet
'

'
    Range("G37").Select
    Selection.ClearContents
End Sub

Wie kann ich das bewerkstelligen?

Gruß

Kelle86

 

[AndrewPoison]

Ich bin jetzt nicht so firm in VBA, aber so würd ich es in Delphi machen:

Du baust dir eine Globale Hilfsvariable ein und setzt sie beim Start auf False (falls dies nicht automatisch geschieht).
Dann kombinierst du deine beiden Makros zu einem, und zwar mit einer einfachen Bedingung: wenn der Wert der Variable FALSE ist, lässt du einen entsprechenden Codeabschnitt durchlaufen (und setzt die Variable auf TRUE), ansonsten lässt du den zweiten Durchlaufen (und setzt die Variable wieder auf FALSE). So würde er jeden Klick wechseln.

In Semi-Code:

var  Wechsel: Boolean = false;

.
.
.

makro XYZ()
begin

 if Wechsel = false then
 begin
     { ... mache das für den ersten Klick ...}
     Wechsel := true;
 end
 else
 begin
    { ... mache das für den zweiten Klick ... }
    Wechsel := false;
 end;

end;

 

[Kelle86]

@AndrewPoison

Dank dir! Nach einigen Probieren hats geklappt. Hab nur eben bescheid bekommen das die Funktion jetzt doch nicht benötigt wird. ARRRGGG!

Naja hab ich wieder was dazu gelernt

Gruß

Kelle86