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
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!