VBA Tipp: Strings rechtsbündig formatieren

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(Text As Variant, _
                         Optional ByVal Length As Long = 12, _
                         Optional FillChar As String = " ") As String
 
   'Quelle: www.dbwiki.net oder www.dbwiki.de
 
   RightFix = Right(String(Length, FillChar) & Text, Length)
 
End Function

Aufruf

   Debug.Print RightFix("Hund", 8)   'ergibt: "    Hund"

oder

   Debug.Print RightFix(123, 6, "0") 'ergibt: "000123"

Weblinks

• RSet-Anweisung