Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Format und Zeichenfolge