Mittels OptionButton Textfarbe ändern

[Björn.412]

Moin zusammen,
dank der Hilfe hier im Forum, konnte ein Code erstellt werden.


Private Sub CommandButton1_Click()
Dim varRow As Variant               
  If IsDate(TextBox1) Then
    varRow = Application.Match(CLng(CDate(TextBox1.Value)), Range(Cells(5, 3), Cells(Rows.Count, 3)), 0)
    If IsNumeric(varRow) Then
      'Deshalb +4, damit der Inhalt der Uaserform ab der zeile 5 geschrieben werden kann
      Cells(varRow + 4, 5).Value = TextBox2.Value
      Cells(varRow + 4, 6).Value = TextBox3.Value
    Else
      MsgBox "Datum nicht gefunden!"
    End If
  Else
    MsgBox "Kein Datum in der TextBox!"
  End If
End Sub

Jetzt wollte ich diesen erweitern, sodass, wenn ein bestimmter OptionButton ausgewählt wurde, sich die Schriftfarbe ändert.

Dazu habe ich entsprechenden Zellen (die aus einer Userform gefüllt werden) markiert mit:
Union(Cells(varRow + 4, 5), Cells(varRow + 4, 6)).Select
Das funktioniert.

Die Textfarbe hingegen wird nur die Zelle in der Spalte 5 geändert.
OptionButton2.Enabled = True
        ActiveCell.Font.ColorIndex = 3

Warum wird nur in einer Zelle die Textfarbe geändert, obwohl beide markiert wurden?

[RPP63]

Warum wird nur in einer Zelle die Textfarbe geändert, obwohl beide markiert wurden?

Moin!
Weil immer nur eine Zelle aktiv ist.
Also (auch wenn die ganze Selektiererei flüssiger als Wasser ist):
Selection.Font
statt
ActiveCell.Font

Lies Dir mal folgenden Beitrag (anfängerfreundlich geschrieben) zur korrekten Referenzierung durch:
https://www.online-excel.de/excel/singsel_vba.php?f=78

Gruß Ralf

[Björn.412]

Moin Ralf,
danke für den Hinweis.