VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeichenfolgen aus Zellen in TextBox mit Leerzeichen darstellen

Gruppe

Dialog

Bereich

TextBox

Thema

Zeichenfolgen aus Zellen in TextBox mit Leerzeichen darstellen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox