Excel VBA: wie kann ich in einer Spalte Zellen nach dem entsprechenden Muster selektieren - erste Zelle mit einem Wert bis nächste Zelle mit einem Wert minus 1?

Excel VBA: wie kann ich in einer Spalte Zellen nach unten mit dem entsprechenden Muster selektieren - erste Zelle mit einem Wert bis zur nächste Zelle mit einem Wert minus einer Zelle: es soll B1+B2 durch das Makro selektiert werden, dann sollen diese Zellen merged werden; danach soll B3 gewält werden und gemergered werden; danach dann B4+B5+B5 markiert werden und ebenfalls merged werde usw bis zum Ende der Spalte B

Reihe       A    B    C   D

Reihe 1    1   da    er  we

Reihe 2    2

Reihe 3    1   be    de   oi

Reihe 4    1   as    sa   ds

Reihe 5    2

Reihe 6    3

Reihe 7    1  dw

Vielen Dank für Hilfe und Anregungen

Grüße Sascha

Answer 1

[Ninombre]

Test mal in einer Kopie der Datei, ob Du damit das gewünschte erreichst:

Sub tt()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Value = 1 Then
For j = i + 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(j, 1).Value = 1 Then
Range(Cells(i, 2), Cells(j - 1, 2)).MergeCells = True
i = j - 1
Exit For
End If
Next j
End If
Next i
End Sub