Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichenfolge aufteilen

Gruppe

Zeichenfolge

Problem

Wie teile ich einen Namen in die einzelnen Elemente bzw. einen Satz in Wörter auf, ohne das Feature Menü DATEN / TEXT IN SPALTEN zu nutzen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: mHWH

Sub Splitten()
   Dim iCol As Integer
   Dim sTxt As String
   sTxt = Range("A1").Value
   Do While InStr(sTxt, " ")
      iCol = iCol + 1
      Cells(1, iCol).Value = Left(sTxt, InStr(sTxt, " ") - 1)
      sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, " "))
   Loop
   Cells(1, iCol + 1).Value = sTxt
End Sub