Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1092to1096
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

Einzelnes Zeichen farbig per VBA

Einzelnes Zeichen farbig per VBA
Mario
Hallo zusammen,
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 Dank
Mario

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Einzelnes Zeichen farbig per VBA
31.07.2009 12:23:44
Hajo_Zi
Hallo Mario,
Option Explicit
Sub Mario()
Dim Bereich4 As Range
Dim Zelle As Range
Set Bereich4 = Tabelle3.Range("H5:G5")
For Each Zelle In Bereich4
If Zelle.Value > 0 Then
Zelle.Value = Zelle.Value & " " & "4"
Zelle.Characters(Start:=Len(Zelle) - 1, Length:=2).Font.Color = 255
Else
Zelle.Value = ""
End If
Next Zelle
End Sub

AW: Einzelnes Zeichen farbig per VBA
31.07.2009 12:38:11
Mario
Danke vielmals
Tschau
Mario
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige