Hallo
ich weiss nicht wo du deine Infos zum verketten herbekommst?? Kannst du das nicht in einer Tabelle in Zellen alden, so das die Beschreibung und der Text in seperaten Zellen stehen. Dann brauchst du nur den Original Text zu verketten. z.B. so
mfg Nobody
Sub test2()
Dim Txt As String, j As Integer
For j = 2 To 10
Txt = Txt & ", " & Cells(j, 2).Value
Next j
MsgBox Trim(Mid(Txt, 2))
End Sub
|