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

' 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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.