title image


Smiley Re: Ich glaube, das geht erst ab XL 2002!
Hallo!



Mit VBA könnte man das (auch bei xl97) etwa so lösen:



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

If Target.Style = "ZweiFormate" Then

pos = InStr(Target, Chr(10))

If pos > 0 Then

With Target.Characters(Start:=1, Length:=pos - 1).Font

.Size = 10

.ColorIndex = 3

End With

With Target.Characters(Start:=pos + 1).Font

.ColorIndex = 1

.Size = 16

End With

End If

End If

End Sub



Das ganze nicht ausgetestet !!!

Wobei vorauszusetzen ist, dass die Zellen, in denen diese Formatierung erfolgen soll, mit der Formatvorlage "ZweiFormate" versehen sein müssen.

Und es passiert in einer derartigen Zelle auch nur dann etwas, wenn man einen Zeilenumbruch eingibt.



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: