|
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
|