ich möchte gerne die in der Spalte a die Zelle mit der roten Schriftfarbe finden und mir diese über eine Msgbox ausgeben lassen.
Habe folgendes versucht:
Sub Berrechnen()
Sheets("Tabelle1").Activate
Dim a As Range
Set a = Range("a:a").Find(Cells.Font.ColorIndex = 3)
a.Select
MsgBox "Zelle" & ActiveCell.Value
End Sub
funktioniert aber leider nicht. Wie geht das richtig?
mfg Basti