Hallo,
ich versuche gerade ein Makro zu erstellen um Spalteninhalte die über mehrere Spalten verteilt sind in einer Spalte zusammenzufassen.
Leider komme ich nicht auf die Bedingung für "Do Until" das er es flexibel nach dem vorkommenden Inhalten, anstelle von festgelegten Werten vornimmt.
Eine Möglichkeit sollte End(xlUp) bieten, ich weiß bloß nicht wie ich das einbinden könnte. Habt ihr eine Idee wie ich "Do Until" entsprechend ausgestallte?
Vielen Dank im Voraus.
Sub Zusammenfassen()
Dim ende As Integer
Dim i As Long
ende = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
i = 1
Do Until ???
Cells(i, 2) = Cells(i, 2).Value & " " & Cells(i, 7).Value & " " & Cells(i, 8).Value & " " & Cells(i, 9).Value
i = i + 1
Loop
End Sub
|