Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichenfolgen aus Zellen in TextBox mit Leerzeichen darstellen

Gruppe

TextBox

Problem

In den TextBoxes sollen die Texte aus Spalte A mit einem Leerzeichen nach jedem vierten Zeichen dargestellt werden. Die TextBoxes sind verknüpft mit den darunterliegenden Zellen, in denen auf eine benutzerdefinierte Funktion zugegriffen wird.

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

StandardModule: Modul1

Function SetSpaces(sTxt As String) As String
   Dim iChar As Integer, iSpace As Integer
   Dim sText As String
   For iChar = 1 To Len(sTxt)
      sText = sText & Mid(sTxt, iChar, 1)
      iSpace = iSpace + 1
      If iSpace = 4 Then
         sText = sText & " "
         iSpace = 0
      End If
   Next iChar
   SetSpaces = sText
End Function