Ich suche ein Makro , das mir alle Spalten mit einer bestimmten Füllfarbe die links von der Spalte od. Zelle sind , die ich gerade markiert habe zusammenführt und dort einfügt.
Sub zusammenf()
x = ActiveCell.Column
For xx = x To 256
Set cb = Columns(xx)
If cb.Interior.ColorIndex = 3 Then
cb.Columns.Cut
Columns(x).Select
ActiveSheet.Paste
x = x + 1
End If
Next
End Sub