Zahlen hochstellen Eine VBA-Funktion, mit der sich Zahlen hochstellen lassen.
Autor:   Thomas Schnitzler	Bewertung:     [ Jetzt bewerten ]	Views:  10.198
ohne Homepage	System:  WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Bisher wurde noch keine Bewertung abgegeben.

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

' Wandelt Zahlen in hochgestellte Zahlen
Function Hochzahl(ByVal WERT As Long) As String
  Dim ARR As Variant
  Dim i As Long
  Dim sValue As String
  Dim sResult As String
 
  ' Zeichencodes 0-9 für hochgestellte Zahlen
  ARR = Array(ChrW(8304), Chr(185), Chr(178), Chr(179), ChrW(8308), ChrW(8309), _
    ChrW(8310), ChrW(8311), ChrW(8312), ChrW(8313))
 
  sValue = CStr(WERT)
  For i = 1 To Len(sValue)
    sResult = sResult & ARR(Val(Mid$(sValue, i, 1)))
  Next i
 
  Hochzahl = sResult
End Function