brauche eine 1. (mit Punkt) über Button!

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: brauche eine 1. (mit Punkt) über Button!
von: WernerH
Geschrieben am: 07.04.2005 21:18:48
Hallo, kann mir bitte einer sagen was ich hier falsch mache. Ich möchte über einen Button mit der Schriftart Common Bullets eine 1. (mit Punkt) haben, der Tastatur Buchstabe wäre bei der Schriftart K für eine 1 mit Punkt. Hier der VBA Code.


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
Bild

Betrifft: AW: brauche eine 1. (mit Punkt) über Button!
von: Ramses
Geschrieben am: 07.04.2005 21:26:24
Hallo
so geht es

Private Sub CommandButton18_Click()
'   "1." in die Zelle
ActiveSheet.Unprotect
With ActiveCell
    .Value = "K"
    .Characters(Start:=1, Length:=2).Font.Name = "CommonBullets"
    .Font.Size = 14
End With
ActiveSheet.Protect
End Sub

Achte auf die Bezeichnung der Schriftart !!
Gruss Rainer
Bild

Betrifft: AW: brauche eine 1. (mit Punkt) über Button!
von: Werner
Geschrieben am: 07.04.2005 21:48:31
Hallo Rainer, besten Dank, es klappt. Ich muss wohl noch sehr viel lernen.
Gruss WernerH
Bild

Betrifft: Merci.... o.T.
von: Ramses
Geschrieben am: 07.04.2005 21:51:05
...
 Bild

Beiträge aus den Excel-Beispielen zum Thema "brauche eine 1. (mit Punkt) über Button!"