Hallo Experten,
habe folgendes Problem:
Aus einer Tabelle erstelle ich automatisch ein Diagramm.
In diesem Diagramm habe ich ein Texfeld in dem versch. Zahlen des Diagramms stehen.
Bisher machen wir das manuel.
Kann ich das Textfeld irgendwie automatisieren, so das ich Bezug auf eine Zelle im Tabellenblatt nehmen kann ???
Danke und Gruß
Jochen
zeichne ein Makro auf in dem Du den gewünschten Titel veränderst.
Bei mir sah das Ergebnis dann in etwa ao aus:
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartTitle.Select
Selection.Characters.Text = "Hallo"
Selection.AutoScaleFont = False
With Selection.Characters(Start:=1, Length:=6).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveWindow.Visible = False
Windows("Mappe1").Activate
Du musst dann nur diese Zeile
Selection.Characters.Text = „Hallo“
so verändern:
Selection.Characters.Text = neuerinhalt
und vor dieses ganze Ding ein
neuerinhalt = Range(„A1“).Value
schreiben - mit Deiner Zelle halt als Inhalt.
Und das Makro kannst Du dann immer bei änderungen im Blatt aufrufen.
Danke für die schnelle Antwort.
Mit Makros kenne ich mich leider garnicht aus.
Vielleicht gibts ja noch einen anderen Tip.
Hallo Jochen,
das geht aber auch ohne Makro.
Markiere das Textfeld und klicke auf den Rahmen, dann gehe in die Formelzeile oben und gebe dort = ein und klicke auf die Zelle in deiner Tabelle, die den Wert enthält, der in deinem Diagramm erscheinen soll.
Einziges Manko wäre, dass man das Textfeld bei Wertänderungen manuell platzieren muss, da es sich nicht automatisch mit Diagrammänderungen bewegt.
Versuch es mal - müsste eigentlich klappen.
Gruß
Martin
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]