Gruppe
Format
Problem
Wie kann ich vor eine Auswahl von Zellen Aufzählungspunkte setzen?
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