Discussion:
VBA CommandButton
(zu alt für eine Antwort)
Groß Michael
2009-01-22 00:16:34 UTC
Permalink
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
Michael Franke
2009-01-22 05:04:10 UTC
Permalink
Hallo Michael,
Post by Groß 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
Groß Michael
2009-01-22 11:34:29 UTC
Permalink
Post by Michael Franke
Hallo Michael,
Post by Groß 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
Ein ganz herzliches Danke für die schnelle Hilfe.
Wie muss ich jetzt die Verbindung zu meinem CommandBuuton1_Click ()
herstellen.

Michael
Groß Michael
2009-01-22 11:39:32 UTC
Permalink
Post by Groß Michael
Post by Michael Franke
Hallo Michael,
Post by Groß 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
Ein ganz herzliches Danke für die schnelle Hilfe.
Wie muss ich jetzt die Verbindung zu meinem CommandBuuton1_Click ()
herstellen.
Michael
Sorry, habe die Lösung gefunden. Wer lesen kann ist eindeutig im Vorteil.

Nochmals Danke an meinen Namensvetter.

Gruß Michael
Groß Michael
2009-01-22 21:17:49 UTC
Permalink
Post by Groß Michael
Post by Groß Michael
Post by Michael Franke
Hallo Michael,
Post by Groß 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
Ein ganz herzliches Danke für die schnelle Hilfe.
Wie muss ich jetzt die Verbindung zu meinem CommandBuuton1_Click ()
herstellen.
Michael
Sorry, habe die Lösung gefunden. Wer lesen kann ist eindeutig im Vorteil.
Nochmals Danke an meinen Namensvetter.
Gruß Michael
Hallo nochmals,

ich habe gewusst, dass die Probleme jetzt erst anfangen, wenn ich mit
dem Rätsel VBA anfange, ich hoffe aber wieder auf schnelle Hilfe.
Ich möchte das oben genannte Problem erweitern, mit einem Click die
Schriftfarben von zwei Zellen ändern.
Hier wieder das Beispiel.

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

Danke Michael

Loading...