Excel und VBA: Formeln, Programmierung, Lösungen

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

    

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