über das folgende Makro (hier aus dem Forum) kann ich Zellen, die untereinander liegen verbinden. Klappt auch super.
Sub ZellenVerbinden()
Dim iRow As Integer, iCounter As Integer, iRowL As Integer
Application.ScreenUpdating = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iCounter = 1 To iRowL Step 2
iRow = iRow + 1
Cells(iRow, 2) = Cells(iCounter, 1) & _
" - " & Cells(iCounter + 1, 1)
Next iCounter
Columns(1).Delete
Columns(1).AutoFit
End Sub
Nun möchte ich aber Zellen, die zusätzlich nebeneinander liegen verbinden und ich weiß nicht, wie ich das Makro ändern muss.
Habe mal eine Beispielmappe hochgeladen. Würde mich freuen, wenn Ihr eine Lösung hättet.
https://www.herber.de/bbs/user/38077.xls
Vielen Dank schon einmal im voraus.
LG
Cordula