Excel 2003: Text Suchen / Ersetzen

[Hakaori]

Fertig

Hi Leute,

Erledigt.

Danke und Gruß,

 

[owny]

Hi,


da wirst du leider nicht um ein Makro rumkommen!

 

[Hakaori]

Thx

 

[owny]

Du kannst ein Makro aufzeichnen, ein Diagramm aus dem Template so anpassen wie du es brauchst (sprich einmal den Durchgang des Makros simulieren), Aufzeichnung stoppen und dir im VBA Editor den Code anschauen.

Dann musst du nurnoch überlegen, welche Variablen und auf welche Art das geschehen soll.

Wenn es Legendenbeschriftungen sein sollen kann man diese z.B. immer pro Tabellenblatt irgendwo in den selben Zellen hinterlegen oder Eingaben durch Benutzer, die Tabellenblätter mit einer fortlaufenden Nummer deklarieren (Tabellenblatt A = 1, Tabellenblatt B = 2 usw.) und das ganze dann in eine For-Schleife hauen.

Ein Beispiel das so ähnlich funktionieren könnte.
Mit Diagrammen hab ich bisher noch nicht gespielt^^

 

[Mirakel]

Diagramme sind leider ein bisschen komplizierter, vor allem wenn jedes seinen eigenen Namen haben soll.
Dann ist die Lösung, die Texte in Tabellenzellen zu schreiben wahrscheinlich am einfachsten.

Wenn du wirklich alle Diagramme ändern willst, ist es am einfachsten und ganz easy per For-Schleife zu lösen.
Du kannst die Diagramme zählen, und das als Obergrenze für ne Schleife nutzen.
Dann einfach verschiedene Zeilen und/oder Spalten für die verschiedenen Beschriftungselemente nutzen.

*edit*
so ungefähr könnte es aussehen. Stammt aber aus xl2010, daher könnte es Unterschiede zu 2003 geben

Dim i As Integer
Dim j As Integer

For j = 1 To Sheets.Count
    For i = 1 To Sheets(j).ChartObjects.Count
        With Sheets(j).ChartObjects(i).Chart
            .HasTitle = True
            .ChartTitle.Text = "=" & Sheets(j).Name & "!$A$" & i + 1
        End With
    Next
Next

Der Code zählt über jedes Arbeitsblatt und jedes CharObject.