Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Optionsfeld und Farbe

Forumthread: 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
Anzeige

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 :)
;
Anzeige

Infobox / Tutorial

Farbige Optionen in Excel mit VBA umsetzen

Schritt-für-Schritt-Anleitung

  1. Vorbereitung: Stelle sicher, dass du ein UserForm mit drei Optionsfeldern (OptionButton4, OptionButton5, OptionButton6) und einem Button zum Übertragen der Daten in die Tabelle hast.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Code hinzufügen: Wähle das entsprechende UserForm aus und füge den folgenden Code in das Click-Ereignis des Buttons ein:

    If OptionButton4.Value = True Then
    Cells(letzteZeile, 10).Value = OptionButton4.Caption
    Cells(letzteZeile, 10).Font.Color = vbBlack
End If

If OptionButton5.Value = True Then
    Cells(letzteZeile, 10).Value = OptionButton5.Caption
    Cells(letzteZeile, 10).Font.Color = vbRed
End If

If OptionButton6.Value = True Then
    Cells(letzteZeile, 10).Value = OptionButton6.Caption
    Cells(letzteZeile, 10).Font.Color = vbGreen
End If

  4. Speichern und Testen: Speichere deinen Code und teste die Funktionalität, indem du die verschiedenen Optionsfelder auswählst und auf den Button klickst.

Häufige Fehler und Lösungen

  • Fehler: Der Text wird nicht in der richtigen Farbe angezeigt.

    • Lösung: Überprüfe, ob die Variablen letzteZeile korrekt gesetzt sind und ob der Code im richtigen Ereignis ist.

  • Fehler: Excel stürzt ab oder reagiert nicht.

    • Lösung: Achte darauf, dass keine Endlosschleifen oder umfangreiche Berechnungen im Code vorhanden sind.

Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du die bedingte Formatierung in Excel nutzen, um die Zellenfarbe basierend auf dem Text zu ändern. Allerdings ist dies nicht so flexibel wie die VBA-Lösung.

  1. Wähle die Zellen aus, die formatiert werden sollen.
  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.
  3. Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden" und gib die entsprechende Formel ein.

Praktische Beispiele

Nehmen wir an, du hast ein Formular mit den folgenden Optionen:

  • Option 1: "Ja" (Farbe: Schwarz)
  • Option 2: "Nein" (Farbe: Rot)
  • Option 3: "Vielleicht" (Farbe: Grün)

Der obenstehende VBA-Code sorgt dafür, dass bei Auswahl von "Ja", der Text in der Zelle schwarz angezeigt wird.

Tipps für Profis

  • Nutze die Select Case-Anweisung für eine übersichtlichere Struktur, wenn du viele Optionsfelder hast.
  • Überlege, wie du eine Rückmeldung für Benutzer einfügen kannst, wenn eine Auswahl getroffen wurde.
  • Dokumentiere deinen Code, damit auch andere (oder du selbst) später verstehen, was der Code bewirken soll.

FAQ: Häufige Fragen

1. Wo sollte ich den VBA-Code einfügen? Der Code sollte im Click-Ereignis des Buttons eingefügt werden, der den Text in die Tabelle überträgt.

2. Welche Excel-Version benötige ich für VBA? VBA ist in den meisten modernen Excel-Versionen verfügbar, darunter Excel 2010, 2013, 2016, 2019 und Microsoft 365.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige