formatierung einzelner Buchstaben

Forumthread: formatierung einzelner Buchstaben
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: formatierung einzelner Buchstaben

21.09.2005 17:12:11

Arno

Hallo Excel-Gemeinde
ist es möglich über VBA den Inhalt einer Zelle auszulesen und festzustellen ob ein Buchstabe mit Unterstreichung formatiert wurde. Wenn ein solcher Buchstabe gefunden wurde möchte ich ihn dann durch des selben Buchstaben mit ´(Aphostroph)ersetzen.
danke für eure Mühe im vorraus, Arno

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: formatierung einzelner Buchstaben

21.09.2005 17:52:10

MichaV
AW: formatierung einzelner Buchstaben

21.09.2005 19:10:39

Arno

AW: formatierung einzelner Buchstaben

21.09.2005 17:52:10

MichaV

Hallo Arno,
markiere die betreffenden Zellen und lasse dieses Makro rüberlaufen:


Option Explicit
Sub UnterstricheneÄndern()
Dim Zelle As Range
Dim i%
For Each Zelle In Selection
If VarType(Zelle.Characters.Font.Underline) = vbNull Then
For i = 1 To Len(Zelle)
If Not Zelle.Characters(i, 1).Font.Underline = xlUnderlineStyleNone Then
Zelle.Characters(i, 1).Font.Underline = xlUnderlineStyleNone
Zelle.Characters(i, 1).Insert ("'" & Zelle.Characters(i, 1).Text)
End If
Next i
End If
Next

Gruss- Micha
PS: Rückmeldung wäre nett.

AW: formatierung einzelner Buchstaben

21.09.2005 19:10:39

Arno

Hallo Micha
es klappt grandios. Danke für die schnelle Antwort.
Arno