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?

...komplette Frage anzeigen

1 Antwort

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

Was möchtest Du wissen?