title image


Smiley dieses Makro hier als Formel möglich?
Hallöchen,



ich habe dieses Makro hier, was mir für die markierte Zelle den Wert wahr oder falsch zurückgibt, wenn die Schrift kursiv ist.



Hat jemand eine Idee, wie man dieses als Formel einbinden kann?





Sub Kursiv()

'

' Makro Farbwert() schreibt in die Zelle rechts daneben den Farbwert

' Makro am 08.05.03 von Schuster Karl erstellt



For Each Zelle In Selection

wert = ActiveCell.Font.Italic

ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = wert

ActiveCell.Offset(0, -1).Activate

ActiveCell.Offset(1, 0).Activate

Next Zelle



End Sub



Liebe Grüße

Manu

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: