ThisWorkbook.Worksheets("Check").Tab.ColorIndex ..
Peter
Untenstehender Code stoppt bei der Zeile
ThisWorkbook.Worksheets("Check").Tab.ColorIndex = 10 ' = grün
wenn die aktive Tabelle, bei der eine Änderung erfolgt, nicht die Tabelle "Check" ist.
Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht."
Was muss ich ändern?
Danke für eine Antwort und Gruss, Peter
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Abs(WorksheetFunction.Sum(Range("Null"))) = 0 Then
ThisWorkbook.Worksheets("Check").Tab.ColorIndex = 10 ' = grün
Else
ThisWorkbook.Worksheets("Check").Tab.ColorIndex = 3 ' = rot
End If
End Sub
Anzeige