Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "brauche eine 1. (mit Punkt) über Button!"
Zahlenformatierung mit Punkt nach der 1. Ziffer Dem Extra-Menü einen Menüpunkt hinzufügen
Kontextmenü in der Entwicklungsumgebung Menüpunkt hinzufügen Menüpunkte sortieren
Menue-Punkt mit Haekchen versehen Errechnung von Schulnoten anhand einer Punktetabelle
Menüpunkte zum Einfügen und Löschen von Zeilen hinzufügen Menüpunkt SPEICHERN deaktivieren
Vor eine Aufzählung Punkte setzen Bei Tabellenaktivierung im Extras-Menü eigenen Menüpunkt anzeigen