Datenhistorie einer Zelle pro Spalte

Hallo,
ich habe folgende Herausforderung:
In einer Zelle sind mehrere Daten zum Warenprozess enthalten.
Das Format sieht wiefolgt aus:
Beispiel Zeile2:
04.05.2020,Wareneingang;05.05.2020,Warenerfassung;07.02.2020,Warenprüfung
Beispiel Zeile3:
07.05.2020,Wareneingang;10.02.2020,Warenprüfung;07.02.2020,Warenlagerung
Wie im Beispiel zu sehen ist, ist nicht jeder Prozessschritt pro Produkt (Zeile) zwangsläufig enthalten.
Das Ziel ist es, dass die Informationen aus der Zelle mit der gesamten Historie derart aufbereitet werden, dass es jeweils eine neue Spalte mit der Überschrift Wareneingang, Warenerfassung, Warenprüfung etc. gibt und darunter pro Zeile jeweils nur das Datum aufgelistet ist.
Da nicht jeder Prozessschritt pro Zeile enthalten ist, bin ich leider nachdem ich den Text in Spalten getrennt habe mit XVERWEIS, SUCHEN o.Ä. zu keiner Lösung gekommen. Ich habe allerdings auch nur Basic Kenntnisse...
Ich nutze eine englische Excel Version.
Hat jemand eine Idee wie sich das lösen lässt?
Danke vorab!
Sofia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Aufteilen() Dim arrDaten Dim lngZeile As Long Dim intZaehler As Integer Dim rngSpalte As Range Dim strDatum As String For lngZeile = 2 To IIf(IsEmpty(Cells(Rows.Count, 1)), _ Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) arrDaten = Split(Cells(lngZeile, 1), ";") For intZaehler = 0 To UBound(arrDaten) Set rngSpalte = Rows(1).Find(Split(arrDaten(intZaehler), ",")(1), _ lookat:=xlWhole) If Not rngSpalte Is Nothing Then strDatum = Split(arrDaten(intZaehler), ",")(0) Cells(lngZeile, rngSpalte.Column) = DateValue(strDatum) End If Next intZaehler Next lngZeile End Sub

Sub Aufteilen() Dim arrDaten Dim lngZeile As Long Dim intZaehler As Integer Dim rngSpalte As Range Dim strDatum As String For lngZeile = 2 To IIf(IsEmpty(Cells(Rows.Count, 3)), _ Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count) arrDaten = Split(Cells(lngZeile, 3), ";") For intZaehler = 0 To UBound(arrDaten) Set rngSpalte = Rows(1).Find(Split(arrDaten(intZaehler), ",")(1), _ lookat:=xlWhole) If Not rngSpalte Is Nothing Then strDatum = Split(arrDaten(intZaehler), ",")(0) Cells(lngZeile, rngSpalte.Column) = DateValue(strDatum) End If Next intZaehler Next lngZeile End Sub

Sub Aufteilen() Dim arrDaten Dim lngZeile As Long Dim intZaehler As Integer Dim rngSpalte As Range Dim strDatum As String For lngZeile = 2 To IIf(IsEmpty(Cells(Rows.Count, 1)), _ Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) If Right(Cells(lngZeile, 1), 1) = ";" Then arrDaten = Split(Left(Cells(lngZeile, 1), Len(Cells(lngZeile, 1)) - 1), ";") Else arrDaten = Split(Cells(lngZeile, 1), ";") End If For intZaehler = 0 To UBound(arrDaten) Set rngSpalte = Rows(1).Find(Split(arrDaten(intZaehler), ",")(1), _ lookat:=xlWhole) If Not rngSpalte Is Nothing Then strDatum = Split(arrDaten(intZaehler), ",")(0) Cells(lngZeile, rngSpalte.Column) = DateValue(strDatum) End If Next intZaehler Next lngZeile End Sub

Okay ;-) ich konnte die Excel nur ohne Makro hochladen.
https://www.herber.de/bbs/user/137796.xlsx
Die Anpassung für Spalte C hatte ich wiefolgt gemacht:

Sub Aufteilen()
Dim arrDaten
Dim lngZeile As Long
Dim intZaehler As Integer
Dim rngSpalte As Range
Dim strDatum As String
For lngZeile = 2 To IIf(IsEmpty(Cells(Rows.Count, 3)), _
Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count)
If Right(Cells(lngZeile, 3), 1) = ";" Then
arrDaten = Split(Left(Cells(lngZeile, 1), Len(Cells(lngZeile, 1)) - 1), ";")
Else
arrDaten = Split(Cells(lngZeile, 3), ";")
End If
For intZaehler = 0 To UBound(arrDaten)
Set rngSpalte = Rows(1).Find(Split(arrDaten(intZaehler), ",")(1), _
lookat:=xlWhole)
If Not rngSpalte Is Nothing Then
strDatum = Split(arrDaten(intZaehler), ",")(0)
Cells(lngZeile, rngSpalte.Column) = DateValue(strDatum)
End If
Next intZaehler
Next lngZeile
End Sub

For lngZeile = 2 To IIf(IsEmpty(Cells(Rows.Count, 3)), _ Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count) arrDaten = Split(Left(Cells(lngZeile, 3), Len(Cells(lngZeile, 3)) - 1), ";") For intZaehler = 0 To UBound(arrDaten) - 1 Set rngSpalte = Rows(1).Find(Split(arrDaten(intZaehler), ",")(1), _ lookat:=xlWhole) If Not rngSpalte Is Nothing Then strDatum = Split(arrDaten(intZaehler), ",")(0) Cells(lngZeile, rngSpalte.Column) = DateValue(strDatum) End If Next intZaehler Next lngZeile

Beliebteste Forumthreads (12 Monate)

Datenhistorie einer Zelle pro Spalte

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenhistorie einer Zelle pro Spalte

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread