ich würde gerne drei nebeneinanderstehende Zellen miteinder zu einer einzigen verbinden, wobei die Inhalte aller drei in die neue übernommen werden sollen.
Mit der "normalen" Zusammenfügfumktion nimmt er nur den Inhalt der ersten Zelle.
Gruß
Norman
Sub verbinden()
Dim c As Range, tmp As String
For Each c In Selection.Cells
tmp = tmp & c
Next
Application.DisplayAlerts = False
Selection.Merge
Application.DisplayAlerts = True
Selection = tmp
End Sub