Gruppe
Allgemein
Problem
Wie kann ich eine Zeichenfolge in die darin enthaltenen Einzelzeichen zerlegen?
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