Option Explicit
Sub BalkenAktuelleZeile()
Rem In A1:A1000 stehen die Anzahl der Spalten die der jeweilige Balken hat
Rem 1 spalte = 1min , die markier ich zz Manuel und verbinde sie
Const Beginn As Long = 2
Range(Cells(Selection.Row, Beginn), _
Cells(Selection.Row, Beginn - 1 + Cells(Selection.Row, 1).Value)).MergeCells = True
End Sub
Sub BalkenGesamtesBlatt()
Rem In A1:A1000 stehen die Anzahl der Spalten die der jeweilige Balken hat
Rem 1 spalte = 1min , die markier ich zz Manuel und verbinde sie
Const minSpalte As String = "A1:A1000"
Dim c As Range
For Each c In Range(minSpalte)
Range(c.Offset(0, 1), c.Offset(0, c.Value)).MergeCells = True
Next c
End Sub