Ich habe eine Tabelle mit diversen Ereigniscodes und Beschreibung.
Im zweiten Tabellenblatt bekomme ich die Ereignisse in einer Zeile, ohne Trennung. Die Codes stehen direkt im Text hintereinander mit beliebig vielen Zeichen/Leerzeichen dazwischen.
Ich habe eine Beispieltabelle angehangen.
Das Ziel für mich wäre jetzt, ab Spalte E die Ereignisse einzeln aufzulisten und die entsprechende Beschreibung aus Tabellenblatt Eins jeweils dahinter einzufügen.
Leider komme ich dort mit SVerweis und meinem sonstigen Wissen nicht weiter.
Hat jemand eine Idee, wie ich die Zeile trennen kann?
Schwieriger wird es mit dem Rest, weil das kein Muster erkennbar ist. Da müsste eine andere Lösung her, darüber denke ich noch mal nach. Die Spalten E und G müssten noch gelöscht werden. Darf es auch ein Makro sein?
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
Sub bearbeiten()
Dim lngZeile As Long
Dim leZeile As Long
On Error Resume Next
leZeile = ActiveCell.SpecialCells(xlLastCell).Row
Range("D:H").Delete
Range("C5:C" & leZeile).TextToColumns Destination:=Range("C5"), DataType:=xlFixedWidth, _
OtherChar:=".", FieldInfo:=Array(Array(0, 1), Array(18, 1), Array(23, 1), Array( _
24, 1), Array(33, 1), Array(34, 1), Array(77, 1)), TrailingMinusNumbers:=True
Cells.EntireColumn.AutoFit
Range("E:E,G:G").Delete Shift:=xlToLeft
Columns(6).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
For lngZeile = 5 To leZeile
Cells(lngZeile, 6) = Mid(Cells(lngZeile, 7), Application.WorksheetFunction.Find("_", Cells(lngZeile, 7), 1) - 5, 5)
Next lngZeile
End Sub
Das Makro ist für das Tabellenblatt "Ziel Ausw". Die Inhalte der Spalten G und H können gelöscht werden, das kann ich auch noch in das Makro einbauen, habe das nur zur Kontrolle drin gelassen.
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
