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, 5712 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Windows Server
gelöst Word 2010 : Absatz - Abstand per GPO ändern (3)

Frage von johanna-p zum Thema Windows Server ...

Exchange Server
Exchange 2013, Outlook 2010 Standard-Absendeadresse ändern (4)

Frage von ingoue zum Thema Exchange Server ...

E-Mail
gelöst GMail: Anzeige der Mailübersicht ändern (7)

Frage von honeybee zum Thema E-Mail ...

Exchange Server
Exchange 2013 - Primäre eMail Adresse ändern (7)

Frage von staybb zum Thema Exchange Server ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...