Ausgabe in G1
Sub BereichVerketten()
Dim c As Range, tmp As String
For Each c In Selection
tmp = tmp & c & "', '"
Next
tmp = Left(tmp, Len(tmp) - 1)
[g1] = tmp
End Sub
code snippets, served virtually
Ausgabe in G1
Sub BereichVerketten()
Dim c As Range, tmp As String
For Each c In Selection
tmp = tmp & c & "', '"
Next
tmp = Left(tmp, Len(tmp) - 1)
[g1] = tmp
End Sub