VBA Tipp: Strings rechtsbündig formatieren
Aus DBWiki
Inhaltsverzeichnis
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"