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, 5764 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
Windows 7
Benutzerpasswort ändern aus einer anderen Domäne heraus (3)

Frage von Machello zum Thema Windows 7 ...

Windows Server
gelöst Servername in der Domäne ändern nicht möglich (4)

Frage von Ghost108 zum Thema Windows Server ...

Outlook & Mail
Schriftart ändern bei Antwort auf Besprechungsanfrage (5)

Frage von Eduuaard zum Thema Outlook & Mail ...

Windows 7
gelöst Desktop-Raster ändern (1)

Frage von 132232 zum Thema Windows 7 ...

Neue Wissensbeiträge
Windows Tools

Zeit für Energiesparmodus, Bildschirmabschaltung etc. schnell anpassen

Anleitung von hannsgmaulwurf zum Thema Windows Tools ...

Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(4)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Heiß diskutierte Inhalte
Firewall
Richtige Grundeinstellungen der Pfsense für mein Netzwerk (12)

Frage von Spitzbube zum Thema Firewall ...

Switche und Hubs
gelöst Cisco 2960x Stacking über mehrere Etagen (12)

Frage von b3scher zum Thema Switche und Hubs ...