AW: Gibts dann keine Lösung für mein Problem?
17.04.2007 11:53:59
Mister
Hallo!
mit dem Makrorekorder habe ich folgendes hingekriegt:
Sub Makro1()
' Erste Buchstabe tiefergestellt
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = True
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub
Sub Makro2()
'Erste Buchstabe hochgestellt'
ActiveCell.FormulaR1C1 = "Blah"
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub
Sub Makro3()
'Erst Buchstabe in Schriftart Wingdings'
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Wingdings"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub
Makro 1 stellt die erste Buchstabe in der aktiven Zelle tiefer
Makro 2 stellt die erste Buchstabe in der aktiven Zelle hoch
Makro 3 wandelt die erste Buchstabe in der aktiven Zelle in Schriftart Wingdings um
Ist das etwa dass was gesucht wurde?
Gruß
Martin