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
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