Gruppe
Format
Bereich
Zeichenfolge
Thema
Vor eine Aufzählung Punkte setzen
Problem
Wie kann ich vor eine Auswahl von Zellen Aufzählungspunkte setzen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub PunkteSetzen()
Dim rng As Range
For Each rng In Selection.Cells
If Not IsEmpty(rng) Then
rng.Value = " " & Chr(163) & " " & rng.Value
End If
rng.Characters(Start:=4, Length:=1) _
.Font.Name = "Wingdings"
Next rng
End Sub