variable Anzahl von Zeichen in einen String schreiben

.. das wohl mächtigste Werkzeug in Bill Gates' Büro-Sippe. Ob reine Formeln, PowerQuery oder VBA. Hier bleiben kaum Wünsche unerfüllt.
Benutzeravatar
d'r Bastler
Beiträge: 832
Registriert: 29. Aug 2022, 13:20
Hat sich bedankt: 224 Mal
Danksagung erhalten: 119 Mal

variable Anzahl von Zeichen in einen String schreiben

#1

Beitrag von d'r Bastler »

Moin allerseits,

ein weiterer Spickzettel: Wie vereinfacht man String = "000000000000000" zum selben Wert?

Code: Alles auswählen

Sub FillUp()
Dim sPre As String, sPost As String, sString As String, p As Integer
Dim wsf As WorksheetFunction: Set wsf = WorksheetFunction

    p = 15
    sString = "String"

    'zum testen, ein oder zwei der nächsten Zeilen ein/auskommentieren
    'sPre = wsf.Rept(">", p)
    'sPost = String(p, "<")    
    MsgBox sPre & sString & sPost

End Sub
Der geübte VBAstler weiß, dass wsf für WorkSheetFunction steht.

Wozu das Ganze? Z.B. kann man so bei der Umwandlung von Dezimal in Binär führende Nullen hinzufügen, oder einen String auf eine benötigte Länge aufpumpen, oder Leerzeichen zur Formatierung von VBA-Captions nutzen, ...

Viel Spaß damit!
Folgende Benutzer bedankten sich beim Autor d'r Bastler für den Beitrag:
thowe
d'r Bastler von den VBAsteleien.de
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste