folgendes Problem:
möchte zellen automatisch verbinden. z.B. ich ziehe von A1 bis G1, dann sollte automatisch diese zellen verbunden sein und eine farbe bekommen. es sind aber nicht immer gleich viele zellen die ich verbinde.
Gruß und danke
Ralph
Sub verbinden()
With Selection
.Merge
.Interior.ColorIndex = 3 'Rot
End With
End Sub
Sub verbinden()
With Selection
.MergeCells = True
.Interior.ColorIndex = 3 '
End With
End Sub
Sub aufheben()
With Selection
.MergeCells = False
.Interior.Color = xlNone
End With
End Sub