Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Optionsbutton

Optionsbutton
18.08.2003 10:34:15
wang
Hallo
Meine Frage ist: Gibt es eine Möglichkeit, die Schrift in einem Optionsbutton durch klicken zu verändern? Das heißt, wenn ich auf dieses Optionsbutton klicke, wird die Beschriftung (Caption)verändert.
Wer kann mir da weiterhelfen?
Gruß
Wang

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Optionsbutton
18.08.2003 10:44:26
Chris
Guck mal unter Eigenschaften unter Font
Gruß
Chris

AW: Optionsbutton
18.08.2003 10:49:38
Willie
Versuch es mal so! Gruß Willie

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
OptionButton1.Font.Size = 16
Else
OptionButton1.Font.Size = 10
End If
End Sub



Private Sub OptionButton2_Click()
If OptionButton1.Value = True Then
OptionButton1.Font.Size = 16
Else
OptionButton1.Font.Size = 10
End If
End Sub


AW: Optionsbutton Willie und Chris
18.08.2003 10:59:02
wang
Hallo ihr beiden
Ich glaube ihr habt mich etwas missverstanden. Was ich meine ist nicht die Veränderung der Größe, sondern statt z.B. Test soll Versuch dastehen, also die Beschriftung. War mein Fehler "Schrift" zu schreiben, sorry.
Hoffe, dass ihr mir weiterhelfen könnt

Anzeige
AW: Optionsbutton Willie und Chris
18.08.2003 11:02:29
Willie
Dann so kein Problem:

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
OptionButton1.Caption = "Test"
Else
OptionButton1.Caption = "Versuch"
End If
End Sub



Private Sub OptionButton2_Click()
If OptionButton1.Value = True Then
OptionButton1.Caption = "Test"
Else
OptionButton1.Caption = "Versuch"
End If
End Sub


Danke
18.08.2003 11:21:22
wang
Hallo Willie
Sehr freundlich von dir mir zu helfen.
Danke
Wang

AW: Optionsbutton Willie und Chris
19.08.2003 17:36:37
Willie
Hallo Wang wenn das das Makro von Neulich ist dann mußt du es nur so ergänzen!

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
OptionButton1.Caption = "Test"
Cells(1, 1).Value = 1
Else
OptionButton1.Caption = "Versuch"
Cells(1, 1).Value = 0
End If
End Sub



Private Sub OptionButton2_Click()
If OptionButton1.Value = True Then
OptionButton1.Caption = "Test"
Cells(1, 1).Value = 1
Else
OptionButton1.Caption = "Versuch"
Cells(1, 1).Value = 0
End If
End Sub

Gruß Willie
P.S. Woher kommt dein Name? Japan?

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige