Office: Ein Wort in Zelle Farbe ändern

antaris · 8. August 2016

Hallo,

Code:

Dim cell As Range
Set cell = Me.Cells(2, 13)

cell.Characters(1, 12).Font.colorindex = 3
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ändert die ersten 12 Buchstaben normalen Text in Zelle M2 per Button.
Funktioniert top.

Aber wenn in der Zelle eine Funktion aufgerufen wird, die ein String an die Zelle zurückgibt, dann wird der Text der gesamten Zelle eingefärbt.
Ich übergebe Zeile und Spalte an die Funktion und in der Funktion soll dann die Textfarbe der ersten 12 Zeichen geändert werden.

Der Funktionsaufruf:
Code:

=WENNFEHLER(set_cell(B6;tbl_jahr_ma3;ZEILE(E6); SPALTE(E6));"")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Funktion, ganz unten das ändern der Schriftfarbe:
Code:

Public Function set_cell(datum As Date, mitarbeiter As String, zeile As Integer, spalte As Integer) As String

Dim rng As Range, cell As Range, dest_cell As Range
Dim max_row As Integer
Dim auftragsnummer As Long
Dim tag As Integer

max_row = Tabelle3.Cells(Rows.Count, 1).End(xlUp).row + 1
Set rng = Tabelle3.Range("A2:A" & CStr(max_row))
Set dest_cell = ActiveSheet.Cells(zeile, spalte)

tag = 0

For Each cell In rng
If Tabelle3.Cells(cell.row, 1).Value = mitarbeiter And Tabelle3.Cells(cell.row, 2).Value = datum Then

auftragsnummer = Tabelle3.Cells(cell.row, 3).Value

If Tabelle3.Cells(cell.row, 8).Value = True Then

set_cell = "Bereitschaft"
tag = 1

End If

If auftragsnummer >= 40000 And auftragsnummer < 50000 Then

set_cell = set_cell & auftragsnummer & " - " & Tabelle3.Cells(cell.row, 4).Value & Chr(10) & Tabelle3.Cells(cell.row, 5).Value & Chr(10) & Chr(10)

ElseIf Tabelle3.Cells(cell.row, 10).Value = True Then

set_cell = "Krank"

ElseIf Tabelle3.Cells(cell.row, 9).Value = True Then

set_cell = "Urlaub"

Else

End If
End If
Next

If tag = 1 Then dest_cell.Characters(1, 12).Font.colorindex = 3

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

xlph · 9. August 2016

Das funktioniert nur bei Zellen mit Fest-Werten und nicht als UDF.

antaris · 9. August 2016

Dachte ich mir...
Gibt es da gar keine andere Möglichkeit?

xlph · 11. August 2016

Dafür gibt es die Bed. Formatierung.

antaris · 12. August 2016

Ok und wie ändere ich dann die ersten 12 Buchstaben einer Zelle, wenn das Wort Bereitschaft in selbiger Zelle enthalten ist?

Office: Ein Wort in Zelle Farbe ändern

Ein Wort in Zelle Farbe ändern

Ein Wort in Zelle Farbe ändern

Ein Wort in Zelle Farbe ändern

Ein Wort in Zelle Farbe ändern - Similar Threads - Wort Zelle Farbe

Zelle Nach Wörtern durchsuchen und zurückgeben?

Excel Summe bilden wenn bestimmtes Wort und Zahl in eine Zelle vorhanden

Wort aus Index aus Text in Zelle auslesen

Wenn Zellen bestimmtes Wort enthalten dann...

Makro für Tabellenwechsel bei bestimmen Wort in Zelle.

Häufigkeiten von Wörtern in einer Zelle

Wort in Zelle suchen und andere Farbe zuweisen