|
Guten Tag zusammen
Ich musste mich heute das erste mal mit VBA auseinander setzen, und nachdem ich mehrere Stunden erfolglos im Netz nach einer Lösung suchte, wage ich mich hier ins Forum. Mein Problem ist vom Verständnis her sehr simpel:
Suche und wähle die Column aus, die im PivotTitel den Namen "Gesamt: Anteil" trägt. Danach will ich ich alle Werte in dieser Column speziel einfärben, abhängig von ihrem Wert. ( >1 grün, <0.9 rot, <1 und >=0.9 gelb)
Ich bin soweit gekommen, dass ich die Column gefunden und mal alle Werte ohne Logik einfärben konnte. Sobald ich auf den Wert des Feldes zugreifen will, kommt ein TypeMismatch error (13).
Sub test()
Dim x As Range
Cells.Find(What:="Gesamt: Anteil", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
For Each x In ActiveCell.EntireColumn
If x.Value > 1 Then
x.Interior.ColorIndex = 10
End If
Next x
End Sub
Wie man sieht, versuche ich durch die Column zu iterieren. Mach ich bereits bei diesem Schritt etwas falsch?
Ich hoffe ich konnte mein Problem so genau wie möglich erläutern.
Mit freundlichen Grüssen
Jeri
|