folgender Code fügt eine "4" in einer Zelle hinzu. Wie kann ich diese "4" farbig hinzufügen, der Rest vom Inhalt der Zelle, sprich Text, soll aber nicht gefärbt werden?
Set Bereich4 = Tabelle3.Range("H5:G5")
For Each zelle In Bereich4
If zelle.Value > 0 Then
zelle.Value = zelle.Value & " " & "4"
Else: zelle.Value = ""
End If
Next zelle
Vielen DankMario