Gruppe
Format
Problem
Wie kann ich an einen vorhandenen Text das Zeichen für "Durchmesser" anhängen?
StandardModule: basMain
Sub DiaMeters()
Dim rng As Range
For Each rng In Selection.Cells
rng.Value = rng.Value & " " & Chr(198)
rng.Characters(Start:=Len(rng.Value), _
Length:=1).Font.Name = "Symbol"
Next rng
End Sub