VBA Tipp: Strings rechtsbündig formatieren

Aus DBWiki
Wechseln zu: Navigation, Suche

Problem

Ich möchte zum Beispiel einen String rechtsbündig formatieren. Diese Funktion gilt als Pendant zur Oracle Funktion RPAD.

Lösung

Das geht mit folgender VBA-Funktion:

Public Function RightFix(ByVal S As Variant, _
       Optional ByVal Lg As Long = 12, _
       Optional ByVal FuellZeichen as String = " ") As String
 
RightFix = Right(String(Lg, FuellZeichen) & S, Lg)
 
End Function

Aufruf

Debug.Print RightFix("Hund",8)

ergibt: "    Hund"


oder

Debug.Print RightFix(123,6,"0")

ergibt: "000123"