Hi habe folgendes Programmiert.
Ich habe eine Spalte in der Einträge farblich markiert sind. Nun habe ich es soweit programmiert das mein Makro die farbliche Spalte durchgeht und immer wenn zwei gleiche Einträge vorhanden sind den zweiten Eitnrag entfert bzw erstezt durch "".
Nun würde ich den Eintrag nicht löschen sondern ein - und eine fortlaufende nummer anhängen sprich so
115
116
117
117-1
117-2
aa
aa-1
ab
ac
ac-2
ac-3 usw......
kann ich das irgendwie programmiern? Muss ich eifnach das "" durch -1+1 esetzen ?
Option Explicit
Sub farbelöschen()
Dim z As Long
Dim a As Integer
Dim b As Integer
For z = 155 To 337176
If Cells(z, 6).Interior.ColorIndex = 7 Then
If Cells(z, 6).Value = Cells(z - 1, 6).Value And Cells(z, 2).Value = Cells(z - 1, 2).Value Then
Cells(z, 6).Value = ""
End If
End If
Debug.Print z
Next
End Sub
|