Hallo zusammen,
ich habe diverse Textfelder (Formular: Zeichnen) in einem Diagramm eingefügt und mit Zellen aus einer anderen Tabelle verlinkt. Nun möchte ich noch eine „bedingte Formatierung“ hinzufügen.
Bei Textfeldern (Zeichnen) ist das anscheinend nicht ganz so einfach.
Kann mir jemand sagen, wie der folgende VBA-Code geändert werden muss, damit sich die Schriftfarbe (in den Textfeldern) bei negativen Zahlen in rot ändert?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wksA As Worksheet
Dim wksB As Worksheet
Set wksA = Worksheets(„Tabellenname1“)
Set wksB = Worksheets(„Tabellenname2“)
If wksA.Range(„H4“)
hallo Happyness911
etwa so?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wksA As Worksheet
Dim wksB As Worksheet
Dim s As shape
Set wksA = Worksheets(„Tabellenname1“)
Set wksB = Worksheets(„Tabellenname2“)
For Each s In wksB.Shapes
If s.Name = „Textfeld“ Then
If wksA.Range(„H4“)
- Die einzelnen Textfelder habe ich schon entsprechend in
„Textfeld“ umbenannt.
Hallo Happyness991,
glaub ich so nicht. Es kann m.E. pro Blatt nur ein Textfeld geben was genau so heißt.
Sub tt()
Dim S
For Each S In ActiveSheet.Shapes
If S.Name Like "Textfeld\*" Then MsgBox S.name
Next S
End Sub
Gruß
Reinhard
Hallo Andreas,
vielen Dank für deine Antwort. Ich habe das Ganze einmal bei mir eingegeben in einem leeren Excel-Dokument. Dort funktioniert es.
Allerdings klappt es in der eigentlichen Datei dann nicht mehr. Die Textfelder habe ich über den Säulen eines Diagramms eingefügt (ist das eine relevante Info?).
Die Textfelder haben alle die korrekte Bezeichnung „Textfeld“ und H4 aus Tabelle1 ist auch negativ - aber leider wird die Schriftfarbe nicht geändert. Eingefügt habe ich den Code in das Sheet, in dem das Diagramm enthalten ist.
Wo könnte der Fehler liegen?
Liebe Grüße
Happyness991