Gruppe
Allgemein
Bereich
Zeichenfolge
Thema
Zeichen separieren
Problem
Wie kann ich eine Zeichenfolge in die darin enthaltenen Einzelzeichen zerlegen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub SplitWord()
Dim iCounter As Integer, iLen As Integer
Dim sText As String
sText = Range("A1").Value
iLen = Len(sText)
If Len(sText) > 255 Then
Beep
MsgBox prompt:="Zeichenfolge wird abgeschnitten"
iLen = 255
End If
For iCounter = 1 To iLen
Cells(1, iCounter + 1) = Mid(sText, iCounter, 1)
Next iCounter
Columns.AutoFit
End Sub