Top-Themen

Aktuelle Themen (A bis Z)

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?

Mitglied: Marco1986

Marco1986 (Level 1) - Jetzt verbinden

27.11.2006, aktualisiert 28.11.2006, 5821 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
Netzwerkmanagement
Netzlaufwerkpfade ändern
gelöst Frage von tribas222Netzwerkmanagement9 Kommentare

Hallo, bin hoffentlich im richtigen Unterforum ;) Ist-Stand: Mein selbsterstelltes Homelaufwerk wird folgendermaßen dargestellt: mein_name (\\domäne\pfadblah) Soll: Home (:H) ...

Windows Server
Kennwortkomplexität ändern
gelöst Frage von LinuZzzWindows Server12 Kommentare

Hallo zusammen, gibt es eine Möglichkeit, an einem Windows 2012 Server, die Kennwortkomplexität zu verändern? Die Standardeinstellung besagt dass ...

Windows Server
Netzwerkreihenfolge ändern
Frage von CharlyXLWindows Server9 Kommentare

Hallo zusammen, ich habe einen Hyper-V Cluster (Windows Server 2016) mit mehreren Netzwerkkarten aufgebaut, wo bei nur eine Karte ...

Batch & Shell

Dateiname ändern, und auch in Datei ändern. evt mit einem Batch

gelöst Frage von helmuthelmut2000Batch & Shell18 Kommentare

Hallo, Ich möchte folgendes umsetzten: Ich habe ein paar Ordner mit Dateien Die Dateien haben folgende Dateinamen, ABC123456.doc ABC123457.doc ...

Neue Wissensbeiträge
Internet

Europa baut Zensurinfrastruktur auf: EU-Parlament stimmt für Upload-Filter, Leistungsschutzrecht und gegen KI-Forschung

Information von Frank vor 2 TagenInternet9 Kommentare

Eine sehr schlechte Entscheidungen für die Zukunft Europas ist gefallen: Der Rechtsausschuss im EU-Parlament stimmte heute morgen in einer ...

Windows 10

Mikrofon von Headset geht nach Update auf Windows 10 1803 nicht mehr

Tipp von Deepsys vor 4 TagenWindows 102 Kommentare

Ich verwende ein Plantronics Headset das per USB mit dem Windows 10 PC verbunden ist. Damit kann ich auch ...

Video & Streaming

Ruckelfreies Fernsehen auf Smartphone oder Tablet - in SD oder gar HD - Eine Alternative zum Fritz DVB-C Receiver

Anleitung von power-user vor 5 TagenVideo & Streaming9 Kommentare

Wer kennt das nicht: Man möchte gemütlich auf dem Balkon sitzen und vielleicht grillen und dabei das WM-Spiel gucken ...

Erkennung und -Abwehr
Trendmicro WFBS 10 ist in deutsch verfügbar!
Tipp von VGem-e vor 5 TagenErkennung und -Abwehr4 Kommentare

Servus Kollegen, downloadbar unter

Heiß diskutierte Inhalte
Netzwerke
Netzwerkkommunikation von Windows 10 aus Freigabe mit Windows XP funktioniert nicht
gelöst Frage von KLinnebankNetzwerke14 Kommentare

Hallo werte Gemeinde, ja, es ist Freitag. Aber das ist KEINE Freitagsfrage Ich habe ein für mich völlig wirres ...

Festplatten, SSD, Raid
Server Architektur mit RAID 5 - wozu interne Platten?
Frage von Pierre78Festplatten, SSD, Raid10 Kommentare

Hallo, ich beschäftige mich gerade mit RAID Systemen. Ich habe mir einen gebrauchten Dell PowerEdge R515 gekauft. Dieser hat ...

DSL, VDSL
886VA und VDSL 50
Frage von agent00nixDSL, VDSL9 Kommentare

Ich bekomme nicht die vertraglich vereinbarten 50 Mbit/s US sondern nur 15 Mbit/s Was mache ich falsch ? Hier ...

Samba
Netzlaufwerk über VPN hat Probleme
Frage von geocastSamba8 Kommentare

Hallo Zusammen Ich habe hier ein QNAP TS-269 Pro (aktuellste Firmware) NAS in einem entfernten Standort, der über VPN ...