ich habe 2 Spalten (A und B) in der Tabelle "Kontoabstimmung" mit einigen rot-formatierten Zellen (Colorindex 9) und möchte diese beiden Spalten nun gerne in eine neue Tabelle (Bearbeitung) kopieren:
Dabei habe ich folgendes Problem mit dem Makro (COLORINDEX_1)Ablauf:
Sub COLORINDEX_1()
Sheets("Kontoabstimmung").Select
zeile = 1
zeile = 2
For z = 1 To 500
If Rows(z).Interior.colorindex = 9 Then
Rows(z).Copy
Sheets("Bearbeitung").Select
Cells(zeile, 1).Select
ActiveSheet.Paste
Sheets("Kontoabstimmung").Select
zeile = zeile + 1
End If
Next
For z = 2 To 500
If Rows(z).Interior.colorindex = 9 Then
Rows(z).Copy
Sheets("Bearbeitung").Select
Cells(zeile, 1).Select
ActiveSheet.Paste
Sheets("Kontoabstimmung").Select
zeile = zeile + 1
End If
Next
End Sub
Vielleicht könnt Ihr mir ja weiterhelfen.
Gruß
Flugwind