Private Sub CommandButton18_Click()
' "1." in die Zelle
ActiveSheet.Unprotect
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Common_Bullets"
.Size = 14
End With
ActiveCell.Value = "K"
ActiveSheet.Protect
End Sub
Was ist denn hier falsch ? ich bekomme das einfach nicht hin.
Gruss WernerH