Bereiche verketten
Ludicla
ich hab im Forum folgenden Code für Bereiche senkrecht verketten gefunden:
Sub test()
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
wie müßte ich den umschreiben damit ich auch waagrecht verketten kann ?
Gruss Ludicla
Anzeige