Forums Neueste Beiträge
 

nochmal VBA CommandButton

22/01/2009 - 22:46 von Groß Michael | Report spam
Hallo,

ich bràucht nochmals Hilfe, denn mein Problem hat sich erweitert.
ich möchte jetzt mit einem Klick zwei Zellen mit unterschiedlicher
Schriftfarbe àndern.
Hier wieder das Beispiel.

Zelle A1 Schrift schwarz, Zelle A2 Schrift grün - Buttontext ja, dann Click
Zelle A1 Schrift rot, Zelle A2 Schrift rot - Buttontext nein, dann Click
Zelle A1 Schrift schwarz, Zelle A2 Schrift grün - Buttontext ja, usw.

Schon mal vielen Dank im Voraus.

Michael
 

Lesen sie die antworten

#1 Claus Busch
23/01/2009 - 00:29 | Warnen spam
Hallo Michael,

Am Thu, 22 Jan 2009 22:46:22 +0100 schrieb Groß Michael:

ich bràucht nochmals Hilfe, denn mein Problem hat sich erweitert.
ich möchte jetzt mit einem Klick zwei Zellen mit unterschiedlicher
Schriftfarbe àndern.
Hier wieder das Beispiel.

Zelle A1 Schrift schwarz, Zelle A2 Schrift grün - Buttontext ja, dann Click
Zelle A1 Schrift rot, Zelle A2 Schrift rot - Buttontext nein, dann Click
Zelle A1 Schrift schwarz, Zelle A2 Schrift grün - Buttontext ja, usw.



probiers mal so für deinen Button:
Private Sub CommandButton1_Click()

If Range("A1").Font.ColorIndex = xlAutomatic _
And Range("A2").Font.ColorIndex = 4 Then
CommandButton1.Caption = "Nein"
Range("A1:A2").Font.ColorIndex = 3
ElseIf Range("A1:A2").Font.ColorIndex = 3 Then
CommandButton1.Caption = "Ja"
Range("A1").Font.ColorIndex = xlAutomatic
Range("A2").Font.ColorIndex = 4
End If

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP1
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen