bin bei der Suche bei diesem tollen Forum gelandet und habe fast schon das gefunden, was ich brauche in einem Beitrag vom 11.10.2012
Das war der VBA. Aber hier wird alles in einer Spalte angegeben. Ich bräuchte das entweder in Spalten nebeneinander oder per ; getrennt.
Option Explicit
Sub jekt()
Dim i As Integer, letzteZeileA As Integer, a As Integer, n As Integer, Text As String
With Worksheets("Tabelle1")
letzteZeileA = .Cells(Rows.Count, 1).End(xlUp).Row
a = 0
For i = 2 To letzteZeileA
If .Cells(i, 1).Value = .Cells(i + 1, 1).Value Then
Text = Text & .Cells(i, 2).Value
a = a + 1
Else
Text = Text & .Cells(i, 2).Value
For n = 0 To a
.Cells(i - n, 3).Value = Text
Next n
a = 0
n = 0
Text = ""
End If
Next i
End With
End Sub
Es wäre ganz wundervoll, wenn mir jemand helfen kann.
Sonnige Grüße
Janine