ein führendes Wingding in jede Zelle

28/08/2008 - 15:46 von Hans Otany | Report spam
Hallo,

kann mir jemand sagen wie ich in eine bestimmte Range von Zellen (z.B. von
B2 bis M12), aber wiederum nur welche nicht leer sind, als erstes Zeichen
ein bestimmtes Wingdings (viereckiges Kàstchen) vor den Text in der Zelle
bekomme.
Darf gern auch ein VBA Makro sein.

Vielen Dank.

mfg Hans
 

Lesen sie die antworten

#1 Peter Schleif
28/08/2008 - 16:04 | Warnen spam
Hans Otany schrieb am 28.08.2008 15:46 Uhr:

kann mir jemand sagen wie ich in eine bestimmte Range von Zellen (z.B. von
B2 bis M12), aber wiederum nur welche nicht leer sind, als erstes Zeichen
ein bestimmtes Wingdings (viereckiges Kàstchen) vor den Text in der Zelle
bekomme.
Darf gern auch ein VBA Makro sein.



Sub wingdings()
Dim zelle As Range

For Each zelle In [B2:M12]
If zelle <> "" Then
zelle = "n" & zelle
zelle.Characters(1, 1).Font.Name = "Wingdings"
End If
Next
End Sub

Ähnliche fragen