Excel-Makro - Wie Ändern der Registerkartenfarbe basierend auf Zelle in einem separaten Arbeitsblatt in derselben Arbeitsmappe?

Question

Ich habe folgendes versucht und es funktioniert nicht - irgendwelche anderen Vorschläge?

Private Sub Worksheet_Change(ByVal Target As Range) 
MyVal = Range("'Summary'!A8").Text 

With ActiveSheet.Tab 
    Select Case MyVal 
     Case "Black" 
      .Color = vbBlack 
     Case "Red" 
      .Color = vbRed 
     Case "Green" 
      .Color = vbGreen 
     Case "Yellow" 
      .Color = vbYellow 
     Case "Blue" 
      .Color = vbBlue 
     Case "Magenta" 
      .Color = vbMagenta 
     Case "Cyan" 
      .Color = vbCyan 
     Case "White" 
      .Color = vbWhite 
     Case Else 
      .ColorIndex = xlColorIndexNone 
    End Select 
End With 
End Sub 

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim MyVal$ 
MyVal = ActiveWorkbook.Sheets("Summary").Range("A8") 

With ActiveSheet.Tab 
    Select Case MyVal 
     Case "Black" 
      .Color = vbBlack 
     Case "Red" 
      .Color = vbRed 
     Case "Green" 
      .Color = vbGreen 
     Case "Yellow" 
      .Color = vbYellow 
     Case "Blue" 
      .Color = vbBlue 
     Case "Magenta" 
      .Color = vbMagenta 
     Case "Cyan" 
      .Color = vbCyan 
     Case "White" 
      .Color = vbWhite 
     Case Else 
      .ColorIndex = xlColorIndexNone 
    End Select 
End With 
End Sub