Zellen verbinden
18.12.2014 12:39:38
Sparrow
Ich suche nach einer VBA Lösung, die in dem Bereich D2 und AH(Zeile bis Used.Range) alle Zellen verbindet, die einen Text enthalten der Länger als 2 Zeichen ist und links bzw rechts dementsprechend den gleichen Wert hat. Hat jmd eine Idee? Hier mal ein Versuch:
Sub Zellenverbinden()
Tabelle6.Select
Zelle = Activesheet.UsedRange.Row
For Each Zelle In Intersect(Cells(2, 4), Range("AH":Zelle))
If Zelle.Value = Zelle.Offset(0, -1).Value Then
Zelle.MergeCells = True
End With
End If
Next
End Sub
Vielen Dank im Voraus
Sascha