Hallo,

ja ich habe noch keine Möglichkeit gefunden dieses Problem zu lösen.

Ich denke weil die For Next Schleife nur einmal reagiert, sie sollte aber unbegrenzt reagieren das ist das Problem hier,

das könnte daran ja liegen, dass ein ungültig Verweis für die Next-Steuervariable vorliegt ?

aber ich habe keine Ahnung davon, der Vorgang sollte unbegrenzt wiederholt werden.

Ich würde mich freuen wenn ein Excel-Experte dieses kleine Problem lösen würde.

Gruß karlos

Sub Faerben()

Dim intZaeler As Integer

Dim db1Zeile As Double

For intZaeler = 1 To 12

On Error Resume Next 'Fehler werden ignoriert

db1Zeile = WorksheetFunction.Match(Cells(intZaeler, "AE", Range("AA1:AA12"), 0)

If db1Zeile > 0 Then

Cells(intzaeler, "AE". Interior.ColorIndex = Cells(db1Zeile, "AA"). Interior,ColorIndex

End If

On Error Goto 0 ' Fehlerignorierung aussalten

Next intZaeler

End Sub