Bereich verketten
22.11.2007 10:58:00
Ludicla
vom Forum hab ich folgenden Code abgekupfert:
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
Damit kann ich Bereiche verketten, allerdings nur senkrechte bereiche und nicht waagrechte.
Wie muss ich den Code ändern, damit ich auch waagrechte Bereiche verketten kann oder
u.U. beides ?
Vielen Dank für Eure Hilfe.
Gruss Ludicla.
Anzeige