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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen