ich brauche mal wieder einen Rat:
Ich habe eine Tabelle in der Faxnummern in jeweils einer Zelle sind. Diese brauche ich für den Massenversand in einer Zeile, mit Kommata oder Semikolon getrennt.
Gibt es einen Trick, die Daten umzuwandeln?
DANKE
Function BereichVerketten(Rng As Range, Optional strSpace As String) As String
'Verketten über Bereich
Select Case Application.Version
Case Is >= 10 'XL2000 und höher
Dim arrTMP
arrTMP = Rng
BereichVerketten = Join(WorksheetFunction.Transpose(arrTMP), strSpace)
Case Else
Dim C As Range
For Each C In Rng
BereichVerketten = BereichVerketten & C & strSpace
Next
BereichVerketten = Left(BereichVerketten, Len(BereichVerketten) - Len(strSpace))
End Select
End Function
In die Zielzelle z.B.:
=bereichverketten(A1:A10;";")
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe