VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Nach jedem 5. Zeichen ein Leerzeichen einfügen

Gruppe

UDF

Bereich

Zeichenfolge

Thema

Nach jedem 5. Zeichen ein Leerzeichen einfügen

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Zeichenfolge