Zahlen und bestimmte Buchstaben hochstellen

Bild

Betrifft: Zahlen und bestimmte Buchstaben hochstellen von: Franky
Geschrieben am: 30.03.2005 19:43:10

Hallo,
ich möchte in einer Zelle einen bestimmten Bereich hochstellen. Als Beispiel Ab+7 wobei b+7 hochgestellt sein soll. Ich habe im Forum ein Makro gefunden, mit dem man Zahlen hochstellen kann.


Sub ZahlHoch()
   Dim r As Range
   Dim i As Integer
   For Each r In Selection.Cells
      If r.Value <> Empty Then
         For i = 1 To Len(r.Value)
            If IsNumeric(Mid(r.Value, i, 1)) Then
               r.Characters(i, 1).Font.Superscript = True
            Else
               r.Characters(i, 1).Font.Superscript = False
            End If
         Next
      End If
   Next
End Sub


Mein Problem ist, dass ich den Buchstaben b sowie das + Zeichen ebenfalls mit hochgestellt haben möchte. Es wäre toll wenn mir jemand weiterhelfen könnte.
Für die Hilfe möchte ich mich schon einmal im Voraus bedanken.
Gruß Franky
Bild


Betrifft: AW: Zahlen und bestimmte Buchstaben hochstellen von: Josef Ehrensberger
Geschrieben am: 30.03.2005 19:49:15

Hallo Franky!

Das geht z.b. so!


Sub ZahlPlusBHoch()
   Dim r As Range
   Dim i As Integer
   For Each r In Selection.Cells
      If r.Value <> Empty Then
         For i = 1 To Len(r.Value)
            If IsNumeric(Mid(r.Value, i, 1)) Or _
                        Mid(r.Value, i, 1) = "b" Or _
                              Mid(r.Value, i, 1) = "+" Then
               r.Characters(i, 1).Font.Superscript = True
            Else
               r.Characters(i, 1).Font.Superscript = False
            End If
         Next
      End If
   Next
End Sub



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!




Bild


Betrifft: AW: Zahlen und bestimmte Buchstaben hochstellen von: Franky
Geschrieben am: 30.03.2005 20:01:36

Hallo Sepp
vielen dank für die schnelle Antwort, funktioniert super.
Einen schönen Abend noch
Gruß Sönke


Bild


Betrifft: AW: Zahlen und bestimmte Buchstaben hochstellen von: Hajo_Zi
Geschrieben am: 30.03.2005 19:54:09

Hallo Frany


Sub Hoch()
'**************************************************
'* H. Ziplies                                     *
'* 30.03.05                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
'* letzten 3Zeich in einem Wort hoch              *
'**************************************************
    ActiveCell.Characters(Start:=Len(ActiveCell) - 2, Length:=3).Font.Superscript = True
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.




 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zahlen und bestimmte Buchstaben hochstellen"