Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nach jedem 5. Zeichen ein Leerzeichen einfügen

Gruppe

Zeichenfolge

Problem

Wie kann ich über VBA in eine Zeichenfolge nach jedem 5. Zeichen ein Leerzeichen einfügen lassen?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

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