Beispiel ­ Vokabeltrainer Ergebnis den Namen des Objekttyps, also beispielsweise Worksheet oder Chart . Wenn ein Tabellenblatt vorliegt, werden aus Geschwindigkeitsgründen vorübergehend die automatische Neuberechnung und Bildschirmaktualisierung abgeschaltet. Anschlie- ßend werden alle benutzten Zellen der Reihe nach analysiert: Mit HasFormula kann ganz einfach festgestellt werden, ob es sich um eine Formel han- delt. Mit TypeName(c.Value)="String" werden Zeichenketten erkannt. (Mit vergleichba- ren Abfragen könnten Sie auch Daten oder Währungswerte ­ etwa 25,50 Euro ­ fest- stellen.) Zur Formatierung wird die Color -Eigenschaft des Font -Objekts der gerade bearbeiteten Zelle verändert. ' Beispiel 01\analyse.xlsm Sub AnalyseWorksheet() Dim c As Range 'cell If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For Each c In ActiveSheet.UsedRange If c.HasFormula Then c.Font.Color = RGB(192, 0, 0) ElseIf TypeName(c.Value) = "String" Then c.Font.Color = RGB(0, 0, 192) Else