Anzeige
Archiv - Navigation
1588to1592
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
Inhaltsverzeichnis

Optionsfeld und Farbe

Optionsfeld und Farbe
12.11.2017 14:02:01
Marcus
Hallo zusammen,
Ich habe in meiner VBA drei Optionsbuttons welche eine unterschiedliche Beschriftung haben. Diese Beschriftung wird je nach Auswahl des Buttons mit in eine Zeile übernommen. Nun hätte ich gerne das bei Eintrag in eine Zeile bei einem entsprechendem Optionsbutton alle Buchstaben eine entsprechende Farbe zur Option erhalten. Scharz für Option 1; rot für Option 2 und grün für Option 3.
Vielen Dank schon mal im Vorraus.
MfG Marcus

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
und wo ist die Frage?
12.11.2017 14:55:59
Matthias
Hallo
Bei Excel gut - VBA gut solltest Du das doch können
.Interior.Color
.Interior.ColorIndex
o.Ä.
Gruß Matthias
AW: und wo ist die Frage?
12.11.2017 15:13:58
Marcus
Hallo,
danke für die Antwort hatte mich in der Auswahl vertan...
AW: und wo ist die Frage?
12.11.2017 15:37:35
Marcus
Wie und wo muss ich das hinter legen?
In dem Optionsbutton selbst oder in dem Button welcher den Text in die Tabelle einträgt?
hier ist der Code aus dem Button welcher in die Tabelle einträgt:
Range(Cells(letzteZeile, 10), Cells(letzteZeile, 12)).Merge
If OptionButton4.Value = True Then Cells(letzteZeile, 10).Value = OptionButton4.Caption
If OptionButton5.Value = True Then Cells(letzteZeile, 10).Value = OptionButton5.Caption
If OptionButton6.Value = True Then Cells(letzteZeile, 10).Value = OptionButton6.Caption
Anzeige
was hälst Du von Font.Color ? ,,, owT
12.11.2017 16:07:39
Font.Color
AW: was hälst Du von Font.Color ? ,,, owT
12.11.2017 16:34:25
Font.Color
Ja hört sich gut an. nur die Frage wo das dann hin soll?
Font.Color nach auswahl
12.11.2017 16:53:06
Sepp
Hallo Marcus,
If OptionButton4.Value Then
  Cells(letzteZeile, 10).Value = OptionButton4.Caption
  Cells(letzteZeile, 10).Font.Color = vbBlack
End If
If OptionButton5.Value Then
  Cells(letzteZeile, 10).Value = OptionButton5.Caption
  Cells(letzteZeile, 10).Font.Color = vbRed
End If
If OptionButton6.Value Then
  Cells(letzteZeile, 10).Value = OptionButton6.Caption
  Cells(letzteZeile, 10).Font.Color = vbGreen
End If

Gruß Sepp

Anzeige
AW: Font.Color nach auswahl
12.11.2017 17:29:33
Marcus
Hammer vielen Dank :)

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige