WCM Forum - Einzelnen Beitrag anzeigen

flinx · 18.04.2004, 15:25

Versuchs mit einem Makro:
z.b. (ohne Gewähr!)

Code:

Sub concat()
i = 2
While ActiveSheet.Cells(i, 1).Text <> ""
ActiveSheet.Cells(1, 1).Text = ActiveSheet.Cells(1, 1).Text & vbLf & _
ActiveSheet.Cells(i, 1).Text
i = i + 1
Wend
End Sub

18.04.2004, 15:25	#4
flinx Inventar Registriert seit: 08.04.2001 Beiträge: 3.101	Versuchs mit einem Makro: z.b. (ohne Gewähr!) Code: Sub concat() i = 2 While ActiveSheet.Cells(i, 1).Text <> "" ActiveSheet.Cells(1, 1).Text = ActiveSheet.Cells(1, 1).Text & vbLf & _ ActiveSheet.Cells(i, 1).Text i = i + 1 Wend End Sub