So erst einmal vielen, vielen Dank für die beiden Antworten.
Vorallem für die zweite, auch wenn ich diese nicht verwendet habe, aber hier wurde sich wirklich viel Mühe gegeben um meine Frage zu beantworten. Das weis ich wirklich zu schätzen. Danke dafür.
Zu Antwort ein ist zu sagen: Es stimmt, wenn man es so angeht ist es wirklich sehr einfach. Wenn man allerdings nicht darauf kommt, weil man ein Brett vorm Kopf hat, weil einem noch zwei, drei andere Probleme unter dem Nägel brennen, dann nicht. Also danke´für den Wink in die richtige Richtung.
Es ist sogar so einfach, dass man nicht einmal eine Do-Loop-Schleife benötigt.
Mein funktionierender Code für alle, die einmal einähnliches Problem haben, ist nun folgender:
Sub Zeilen_löschen()
Dim Ziel_Zeile, Ziel_Addr As String
Dim FarbIndex As String
'Welche Farbe hat Zelle in Spalte A der markierten Zeile
Ziel_Zeile = ActiveCell.Row
FarbIndex = Range("A" & Ziel_Zeile).Interior.ColorIndex
If Range("A" & Ziel_Zeile + 1).Interior.ColorIndex = FarbIndex Then
If Range("A" & Ziel_Zeile + -1).Interior.ColorIndex = FarbIndex Then
Ziel_Addr = ActiveCell.Address(0, 0)
Range(Ziel_Addr).EntireRow.Delete
Else
Exit Sub
End If
Exit Sub
End If
End Sub
Noch einmal vielen Dank an bei Antworter und noch einen schönen Abend.
mfg
|