title image


Smiley Re: Format für ein Zeichen per VBA ändern
Hallo Ingo,

so geht's:





Sub Hochstellen()

    

    Dim I As Integer

    Dim c As Range

    Dim ws As Worksheet

    

    For Each ws In ActiveWorkbook.Worksheets

        

        For Each c In ws.UsedRange

         

            I = 1

            Do Until Mid(c.Value, I, 1) = "&Reg;" Or I > Len(c)

               I = I + 1

            Loop

             

            If I <= Len(c) Then

                   With c.Characters(Start:=I, Length:=1).Font

                         .Superscript = True

                   End With

            End If

                          

        Next c

    

    Next ws

        

End Sub



Code eingefügt mit Syntaxhighlighter 2.5




Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: