Wert ausblenden und Buttontext ändern

Forumthread: Wert ausblenden und Buttontext ändern
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Wert ausblenden und Buttontext ändern

08.11.2002 09:36:32

Steve

Hallo zusammen,

ich möchte gerne folgendes erreichen. Auf Knopfdruck eines Buttons soll die Schrift in einer bestimmten Zelle weiß werden (damit sie nicht ausgedruckt wird. Drückt man nun nochmal auf diesen Button, soll die Schrift wieder schwarz werden. Beim nächsten Druck wieder weiß... Gleichzeitig soll sich die Beschriftung des Buttons beim ersten Knopfdruck von "Wert ausblenden" in "Wert einblenden" ändern. Beim zweiten Knopfdruck wieder in "Wert ausblenden" usw.

Kann mir da wer helfen?

Vielen Dank im voraus
Steve

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Wert ausblenden und Buttontext ändern

08.11.2002 09:43:20

Chris
Re: Wert ausblenden und Buttontext ändern

08.11.2002 09:45:44

TOM
Re: Wert ausblenden und Buttontext ändern

08.11.2002 09:49:37

Steffen D
was vergessen

08.11.2002 09:52:30

Steffen D
Vielen Dank für die schnelle Hilfe

08.11.2002 09:56:19

Steve

Re: Wert ausblenden und Buttontext ändern

08.11.2002 09:43:20

Chris

Hallo Steve

Range("A1").Select
If Selection.Font.ColorIndex = 2 Then
Selection.Font.ColorIndex = 0
CommandButton1.Caption = "Wert ausblenden"
Else
Selection.Font.ColorIndex = 2
CommandButton1.Caption = "Wert einblenden"
End If

Gruss
Chris

Re: Wert ausblenden und Buttontext ändern

08.11.2002 09:45:44

TOM

Hallo Steve

noch einen Ansatz

Gruss TOM

Re: Wert ausblenden und Buttontext ändern

08.11.2002 09:49:37

Steffen D

Mach ein Button und gib ihn folgenden Code:

Private Sub CommandButton_Click()
If CommandButton.Caption = "Wert ausblenden" Then
Range("A1").Font.ColorIndex = 2
CommandButton.Caption = "Wert einblenden"
Else
Range("A1").Font.ColorIndex = 0
End If
End Sub

Wobei die zu bearbeitete Zelle hier A1 ist.