Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Diagrammtitel ändern?

Frage Microsoft Microsoft Office

Mitglied: Marco1986

Marco1986 (Level 1) - Jetzt verbinden

27.11.2006, aktualisiert 28.11.2006, 5736 Aufrufe, 8 Kommentare

Hallo zusammen,

ich habe das Problem, dass ich in einer Excel-Tabelle hunderte von Diagrammen habe und nun den Titel der Diagramme ändern muss. Die Titel der Diagramme heißen alle gleich. Nun wollte ich die Funktion "Suchen und Ersetzen" benutzen, was aber leider nicht geht. Kann mir jemand sagen, wie ich auf einen Schlag alle Diagramm-Titel ändern kann, ohne jeden einzelnen Titel händisch zu ändern?

Vielen Dank schon mal für eine Antwort!!!

Marco
Mitglied: 8644
27.11.2006 um 15:41 Uhr
Hi,

versuch's mal so:

01.
Sub Rename() 
02.
 Dim i, n, z As Integer 
03.
    For i = 1 To Sheets.Count 
04.
     z = Sheets(i).ChartObjects.Count 
05.
     For n = 1 To z 
06.
      Sheets(i).ChartObjects(n).Chart.ChartTitle.Text = "Neuer Name" 
07.
     Next n 
08.
    Next i 
09.
End Sub
Psycho
Bitte warten ..
Mitglied: bastla
27.11.2006 um 15:53 Uhr
Hallo Marco!

Da ich Deinem Beitrag nicht entnehmen kann, ob es sich um einzelne Diagrammblätter oder um Diagramme in Tabellen handelt, eine Lösung für Beides:
01.
Option Explicit 
02.
Sub AendereDiagTitel() 
03.
Dim Blatt As Object, Diag As Object 
04.
'Diagrammblätter 
05.
For Each Diag In Charts 
06.
    Diag.ChartTitle.Text = "Neuer Blatttitel" 
07.
Next 
08.
'Diagramme in Tabellen 
09.
For Each Blatt In Worksheets() 
10.
    For Each Diag In Blatt.ChartObjects() 
11.
        Diag.Chart.ChartTitle.Text = "Neuer Titel" 
12.
    Next 
13.
Next 
14.
End Sub
HTH
bastla

[Edit] @psycho - Dass Du Zeit für sowas hast, konnte ich ja nicht ahnen [/Edit]
Bitte warten ..
Mitglied: 8644
27.11.2006 um 15:56 Uhr
@bastla:
Der von dir wahrscheinlich angesprochene Beitrag hat einen grünen Haken!!!

Psycho
Bitte warten ..
Mitglied: bastla
27.11.2006 um 16:54 Uhr
@psycho

... aber ich seh' da noch kein Schloss ...

Grüße
bastla
Bitte warten ..
Mitglied: Marco1986
28.11.2006 um 08:22 Uhr
Huhu,

vielen Dank für eure hilfreichen Antworten!!! Haben beide super funktioniert! Aber eine kleine Frage hätte ich zu dem Thema noch. Was ist, wenn ich bei diesen hunderten von Diagrammen nur ein bestimmtes Wort ändern möchte?

Bsp.:

Diegram 1 : 2006 - Jahreszahlen
Diagramm 2: 2006 - Monatszahlen


wird zu:
Diegram 1 : 2007 - Jahreszahlen
Diagramm 2: 2007 - Monatszahlen
Bitte warten ..
Mitglied: bastla
28.11.2006 um 08:42 Uhr
Hallo Marco!

Um den Titel mit einem neuen Anfang zu versehen:
01.
Option Explicit 
02.
Sub AendereDiagTitel() 
03.
Const AnfangNeu As String = "<b>2007</b>" 
04.
Dim Blatt As Object, Diag As Object, Ab As Integer 
05.
Ab = Len(AnfangNeu) + 1 
06.
'Diagrammblätter 
07.
For Each Diag In Charts 
08.
    Diag.ChartTitle.Text = AnfangNeu & Mid(Diag.ChartTitle.Text, Ab) 
09.
Next 
10.
'Diagramme in Tabellen 
11.
For Each Blatt In Worksheets() 
12.
    For Each Diag In Blatt.ChartObjects() 
13.
        Diag.Chart.ChartTitle.Text = AnfangNeu & Mid(Diag.Chart.ChartTitle.Text, Ab) 
14.
    Next 
15.
Next 
16.
End Sub
Anmerkung: Sollte passen, hatte aber keine Zeit zum Testen

Grüße
bastla
Bitte warten ..
Mitglied: 8644
28.11.2006 um 08:49 Uhr
Moin,

oder mit Replace:

01.
... 
02.
Dim txt As String 
03.
 txt = Sheets(i).ChartObjects(n).Chart.ChartTitle.Text 
04.
 Replace(txt, "2006", "2007") 
05.
 Sheets(i).ChartObjects(n).Chart.ChartTitle.Text = txt 
06.
...
@bastla: Es ist definitiv noch zu früh für ein Schloss!

Psycho
Bitte warten ..
Mitglied: Marco1986
28.11.2006 um 09:02 Uhr
Hey super!!!

Vielen Dank für eure schnelle und kompetente Hilfe!!!
Bitte warten ..
Ähnliche Inhalte
CMS
gelöst Wordpress Admin-URL ändern (13)

Frage von MegaGiga zum Thema CMS ...

Windows Server
Windows Server 2012 - Passwort ändern (6)

Frage von BirdyB zum Thema Windows Server ...

Batch & Shell
gelöst Erstelldatum vieler Dateien ändern (aus Dateinamen abgeleitet) (11)

Frage von X-Spezi zum Thema Batch & Shell ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(7)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte