Zugriff auf Textfelder (Zeichnen) mit Excel-VBA

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

ich möchte mit Excel-VBA (2003), dass sich die Schriftart in Textfeldern (aus der Symbolleiste ZEICHNEN) automatisch in rot ändert, wenn die Summe (auf die das Textfeld verweist) negativ ist.

Die Textfelder sind über einem Säulendiagramm (in einem separaten Sheet dargestellt) angegeben und durchnummeriert („Textfeld1“, „Textfeld2“, usw.).

Nun hab ich folgendes schon vorliegen:

Sub Textfelder_ändern()

Dim wksA As Worksheet
Dim wksB As Worksheet
Dim s As Shape
Set wksA = Worksheets(„Tabelle1“)
Set wksB = Worksheets(„Tabelle2“)
wksA.Activate

If wksA.Range(„H4“).Value

2

Moin Happy,

ich möchte mit Excel-VBA (2003), dass sich die Schriftart in
Textfeldern (aus der Symbolleiste ZEICHNEN) automatisch in rot
ändert, wenn die Summe (auf die das Textfeld verweist) negativ
ist.

„auf die das Textfeld verweist“ ?
Wie geht das?

Sub Textfelder_ändern()

Dim wksA As Worksheet
Dim wksB As Worksheet
Dim s As Shape
Set wksA = Worksheets(„Tabelle1“)
Set wksB = Worksheets(„Tabelle2“)
wksA.Activate

If wksA.Range(„H4“).Value