Farbige Zellen löschen

Question

Hi

Würde gerne in einer Tabelle in allen Spalten alle gelben Zellen löschen hab auch ein Makro das funktioniert.
Sub farbige_weg()
Dim bereich As Range

Set bereich = ActiveSheet.UsedRange

ende = bereich.Rows.Count

For i = ende To 1 Step -1
If Cells(i, 1).Interior.ColorIndex = 6 Then
Rows(i).Delete Shift:=xlUp
End If
Next

End Sub


Wie kann ich nun alle gelben Zellen löschen und die 1 Zelle unter der gelben. Also Gelb plus 1.Zelle unterhalb Löschen.
Kann mir vielleicht jemand helfen

Answer 1

hi

Rows("" & i & ":" & i + 1).Delete Shift:=xlUp

Gruss Nighty

Answer 2

Hi Nighty

passt Super

Danke

Answer 3

Hi Nighty

Nun gut doch nicht so ganz nun schiebt er mir die zeilen zusammen
habe nämlich Leer Zeilen dazwischen.
Die Leeren Zeilen sollen bleiben

Answer 4

hi Asta45 :-)

Vielleicht so ?

Gruss Night

Sub farbige_weg()
Dim bereich As Object
Dim WksZeilen As Long
Set bereich = ActiveSheet.UsedRange
For WksZeilen = bereich.Rows.Count To 1 Step -1
If Cells(WksZeilen, 1).Interior.ColorIndex = 6 Then
If Cells(WksZeilen + 1, 1) <> "" Then
Rows("" & WksZeilen & ":" & WksZeilen + 1).Delete Shift:=xlUp
Else
Rows(WksZeilen).Delete Shift:=xlUp
End If
End If
Next i
End Sub

Answer 5

Hallo Nighty

Da kommt eine Fehlermeldung
Ungültiger Verweis auf Next-Steuervariable

Answer 6

Hi Asta45 :-)

ops,das kommt davon, wenn blind geschrieben wird ohne zu testen ^^

Korrigiert :-)

Gruss Nighty

Sub farbige_weg()
Dim bereich As Object
Dim WksZeilen As Long
Set bereich = ActiveSheet.UsedRange
For WksZeilen = bereich.Rows.Count To 1 Step -1
If Cells(WksZeilen, 1).Interior.ColorIndex = 6 Then
If Cells(WksZeilen + 1, 1) <> "" Then
Rows("" & WksZeilen & ":" & WksZeilen + 1).Delete Shift:=xlUp
Else
Rows(WksZeilen).Delete Shift:=xlUp
End If
End If
Next WksZeilen
End Sub

Answer 7

Hi Nighty

Aber jetzt passts

Grosses Dankeschön