- 3 Zellen
- in jeder Zelle steht was
Frage: Kann man aus diesen Zellen 1 Zelle machen? Mein Problem ist, das die Daten in den einzellnen Zellen nicht verschwinden dürfen. Sie sollten in der einen Zelle zusammen gefügt sein.
Sub Verbinden()
Const cTrennzeichen As String = " / " 'optional, wenn nicht dann ""
Dim c As Range, s$
If Not Selection.Count = 1 Then
For Each c In Selection
If Not IsEmpty(c) Then s = s & c.Text & cTrennzeichen
c.ClearContents
Next c
If Not s = "" Then
Selection.Cells(1).Value = Left(s, Len(s) - Len(cTrennzeichen))
Selection.HorizontalAlignment = xlCenterAcrossSelection
End If
End If
End Sub