WCM Forum - Einzelnen Beitrag anzeigen - Aus mehreren Zellen die fettgedruckte übernehmen...

testi · 28.06.2006, 15:38

Für Fett,Kursiv und Standard geht's in VBA so
Modul in Arbeitsmappe einfügen und folgender code

Code:

Public Function TextFormat(Zelle As String) As String
TextFormat = Range(Zelle).Font.FontStyle
End Function

wenn in der Zelle A12 zu Bsp.
Test steht kannst die wie folgende wenn nehmen.

Code:

=WENN(TextFormat("A1")="Fett";"das ist fett markiert";"nicht Fett")

@gms76

mit formel Zelle geht's nicht

28.06.2006, 15:38	#5
testi Veteran Registriert seit: 22.04.2004 Alter: 51 Beiträge: 216	Für Fett,Kursiv und Standard geht's in VBA so Modul in Arbeitsmappe einfügen und folgender code Code: Public Function TextFormat(Zelle As String) As String TextFormat = Range(Zelle).Font.FontStyle End Function wenn in der Zelle A12 zu Bsp. Test steht kannst die wie folgende wenn nehmen. Code: =WENN(TextFormat("A1")="Fett";"das ist fett markiert";"nicht Fett") @gms76 mit formel Zelle geht's nicht ____________________________________ Wenn Baumeister Häuser bauten, so wie Programmierer Programme schreiben, dann würde der erste Specht der vorbei kommt die Zivilisation zerstören.