VBA CommandButton

22/01/2009 - 01:16 von Groß Michael | Report spam
Hallo,
da ich blutiger Anfànger mit VBA bin hoffe ich, dass mir jemand weiter
helfen kann. Ich möchte mit einem CommandButton die Formatierung
(Schriftfarbe)einer Zelle àndern, gleichzeitig soll sich der Text des
Buttons àndern. Zum besseren Verstàndnis vielleicht ein Beispiel.

Zelle A1 Schriftfarbe schwarz - Buttontext ja, dann Click
Zelle A1 Schriftfarbe rot - Buttontext nein, dann Click
Zelle A1 Schriftfarbe schwarz - Buttontext ja, usw.

Hoffentlich habe ich mich klar ausgedrückt.

Danke Michael
 

Lesen sie die antworten

#1 Michael Franke
22/01/2009 - 06:04 | Warnen spam
Hallo Michael,

da ich blutiger Anfànger mit VBA bin hoffe ich, dass mir jemand weiter
helfen kann. Ich möchte mit einem CommandButton die Formatierung
(Schriftfarbe)einer Zelle àndern, gleichzeitig soll sich der Text des
Buttons àndern. Zum besseren Verstàndnis vielleicht ein Beispiel.

Zelle A1 Schriftfarbe schwarz - Buttontext ja, dann Click
Zelle A1 Schriftfarbe rot - Buttontext nein, dann Click
Zelle A1 Schriftfarbe schwarz - Buttontext ja, usw.



Private Sub btnFarbe_Click()
If ActiveSheet.Range("A1").Font.ColorIndex = 3 Then
ActiveSheet.Range("A1").Font.ColorIndex = 0
Me.btnFarbe.Caption = "ja"
Else
ActiveSheet.Range("A1").Font.ColorIndex = 3
Me.btnFarbe.Caption = "nein"
End If
End Sub

Gruß, Michael

Ähnliche fragen