Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
16.04.2024 12:01:17
Dynamische Liste generiert aus mehreren Vorgagen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
176to180
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert ausblenden und Buttontext ändern

Wert ausblenden und Buttontext ändern
08.11.2002 08: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
Anzeige
Re: Wert ausblenden und Buttontext ändern
08.11.2002 08: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 08:45:44
TOM
Hallo Steve

noch einen Ansatz

Gruss TOM

Re: Wert ausblenden und Buttontext ändern
08.11.2002 08: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.

Anzeige
was vergessen
08.11.2002 08:52:30
Steffen D
So ist es richtig:

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
CommandButton.Caption = "Wert ausblenden"
End If
End Sub

viel spaß

Vielen Dank für die schnelle Hilfe
08.11.2002 08:56:19
Steve
Dank an euch alle

Steve

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige