Microsoft Excel

Herbers Excel/VBA-Archiv

Text in Spalten

Betrifft: Text in Spalten von: Gregor
Geschrieben am: 27.10.2020 12:35:31

Hallo

https://www.herber.de/bbs/user/141121.xlsx

Ich habe in einer Spalte diverse Daten die ich sinngerecht in 5 Spalten aufteilen möchte:
1. Datum
2. Datum
Kompletter Name
Ziffer (Jahre)
Jahre

Beispiel Zeile 4:
2020-10-27 27.10.1978 Reto Wüest Wälchli 42 Jahre

2020-10-27
27.10.1978
Reto Hunziker Wälchli
42
Jahre

Hat jemand eine Idee, wie ich das per vba machen kann? Text in Spalten geht nicht, da Namen sehr unterschiedlich.

Danke und Gruss
Gregor

Betrifft: AW: Text in Spalten
von: AlterDresdner
Geschrieben am: 27.10.2020 12:53:38

Hallo Gregor,
ein erster Ansatz:
Sub trennen()
Dim a As String, b, i, zeile
  For zeile = 4 To Cells(Rows.Count, 1).End(xlUp).Row
    a = Cells(zeile, 1)
    b = Split(Left(a, Len(a) - 6))
    Cells(zeile, 2) = b(0)
    Cells(zeile, 3) = b(1)
    Cells(zeile, 4) = b(UBound(b))
    a = ""
    For i = 2 To UBound(b) - 1
      a = a & b(i) & " "
    Next i
    Cells(zeile, 5) = Trim(a)
  Next zeile
End Sub

Gruß der ALteDresdner

Betrifft: AW: Text in Spalten
von: Gregor
Geschrieben am: 27.10.2020 22:42:30

Hallo ALteDresdner

Vielen Dank, mit diesem Ansatz komme ich zum Ziel.

Gruss Gregor

Beiträge aus dem Excel-Forum zum Thema "Text in Spalten"