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, 5739 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
Batch & Shell
HKLM Regkey bei Clients mit GPOs ändern (4)

Frage von adm2015 zum Thema Batch & Shell ...

Windows Server
Computernamen von Sharepoint 2013 nachträglich ändern (1)

Frage von Philipp.S zum Thema Windows Server ...

Neue Wissensbeiträge
Batch & Shell

Batch zum Zurücksetzen eines lokalen Profils

Tipp von Mr.Error zum Thema Batch & Shell ...

RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
VPN Tunnel aufbauen (16)

Frage von Hajo2006 zum Thema LAN, WAN, Wireless ...

Router & Routing
ASUS RT-N18U mit VPN Client hinter Fritzbox - Portforwarding (14)

Frage von marshall75000 zum Thema Router & Routing ...

Microsoft Office
Saubere HTML aus Word-Dokument (13)

Frage von peterpa zum Thema Microsoft Office ...

E-Mail
gelöst Probleme beim E-Mail Empfang (12)

Frage von TommyB83 zum Thema E-Mail ...