Anwendungsdefinierter oder objektdefinierter Fehler - Ich kann die Antwort nicht finden

Question

Ich habe überall gesucht, kann das aber nicht herausfinden. Alles, was ich will, ist, dass das Programm überprüft, ob das 6. Zeichen der Zeichenkette gleich "C" ist, und wenn ja, mache die Schriftart der Zelle rot. Ich habe mehrere verschiedene Korrekturen ausprobiert (dies war nicht mein erster Code), kann aber nicht herausfinden, warum ich diesen Fehler immer wieder bekomme. Kann mir jemand sagen, was vor sich geht?

Dim Rows As Integer 
Dim Content As String 

Worksheets("Data").Activate 
Rows = Worksheets("Data").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count 

For x = 1 To Rows 
Content = Mid(Cells(x, "A"), 6, 1) 

If Content = "C" Then 
    With Worksheets("Data") 
     .Range(Cells(x, "A")).Font.Color = vbRed <---- ERROR 
    End With 
End If 
Next x 

Answer 1

Entfernen Sie einfach das Wort Range und es sollte funktionieren. Sie können .Range("A" & x).Font.Color = vbRed auch nur für zukünftige Referenz verwenden.