AW: unterschiedliche Farben für Text in einer Zelle
16.11.2010 18:40:12
Josef
Hallo Swen,
die Funktion kannst du auch als Tabellenfunktion verwenden.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Public Function redString(Zelle As Range) As String
Dim lngI As Long
For lngI = 1 To Len(Zelle.Text)
If Zelle.Characters(lngI, 1).Font.Color = vbRed Then _
redString = redString & Zelle.Characters(lngI, 1).Text
Next
End Function
Sub test()
MsgBox redString(Range("a1"))
End Sub
Gruß Sepp