möchte gerne einem Text eine definierte anzahl Stellen zuordnen. Wenn der Text nicht genug Ziffern hat, sollen einfach Leerschläge angehängt werden bis die entsprechende Textlänge erreicht wird. Gibt es dafür eine Formel?
Gruss
de Bruno
Sub test()
Dim c As Range
For i = 1 To 50 - Len(ActiveCell.Value)
ActiveCell.Value = ActiveCell.Value & " "
Next i
End Sub
=A1&WIEDERHOLEN(" ";50-LÄNGE(A1))
Gruß Ingolf