Gruppe
UDF
Problem
Wie kann ich über VBA in eine Zeichenfolge nach jedem 5. Zeichen ein Leerzeichen einfügen lassen?
StandardModule: basMain
Function Leer(sText As String) As String
Dim iCounter As Integer
Dim sTxt As String
For iCounter = 5 To Len(sText) Step 5
sTxt = sTxt & Mid(sText, iCounter, 5) & " "
Next iCounter
Leer = Left(sTxt, Len(sTxt) - 1)
End Function