Hochstellung von Zeichenfolgen
21.09.2006 13:08:37
Chris
in einer Arbeitsmappe sind mehrfach die Zeichenfolge "*1" , "*2" oder "*3" vorhanden. Diese soll auf eine bestimmte Fußnote hinweisen.
Diese Zeichenfolgen stehen zumeißt nicht alleine in einer Zelle, sondern mit anderen als Texteingabe
Beispiel:
Verursacher*1
Person*1
Auswirkung*2
Wie ist es möglich, die Zeichenfolgen "*1" hochzustellen und zwar NUR das "Sternchen 1", nicht die gesamte Zelle.
Mit folgendem Makro ist immer alles hochgestellt:
Sub Makro2()
Dim Sht As Worksheet
With Application.ReplaceFormat.Font
.Superscript = True
End With
For Each Sht In Worksheets
Sht.Cells.Replace What:="*1", _
Replacement:="*1", LookAt:=xlPart, MatchCase:=False, ReplaceFormat:=True
Sht.Cells.Replace What:="*2", _
Replacement:="*2", LookAt:=xlPart, MatchCase:=False, ReplaceFormat:=True
Sht.Cells.Replace What:="*3", _
Replacement:="*3", LookAt:=xlPart, MatchCase:=False, ReplaceFormat:=True
Next
End Sub
Vielen Dank für Eure Hilfe
Chris