Zum Hauptinhalt springen

Wie kann man Text in Diagrammtiteln in Excel finden und ersetzen?

Author: Xiaoyang Last Modified: 2025-05-28

Diagramme sind in Excel sehr nützlich, und wir vergeben ihnen oft Titel zur Identifizierung. Aber haben Sie schon einmal versucht, den Textwert in Diagrammtiteln innerhalb mehrerer Diagramme zu finden und zu ersetzen? Heute werde ich darüber sprechen, wie man einen bestimmten Text in mehreren Diagrammtiteln findet und ihn durch einen anderen Wert in Excel ersetzt.

Text in Diagrammtiteln in Excel mit VBA-Code finden und ersetzen


Text in Diagrammtiteln in Excel mit VBA-Code finden und ersetzen

Angenommen, Sie haben ein Arbeitsblatt, das die Diagramme wie im folgenden Screenshot zeigt, und Sie möchten den Text Januar nur in allen Diagrammtiteln durch Februar ersetzen. Natürlich können Sie sie manuell einzeln ändern, aber das wird zeitaufwändig sein, wenn es mehrere Diagramme gibt. Daher kann Ihnen der folgende VBA-Code bei dieser Aufgabe helfen.< /p>

a screenshot of original charts

1. Aktivieren Sie Ihr Arbeitsblatt, das die Diagramme enthält, in deren Titeln Sie suchen und ersetzen möchten.

2. Halten Sie die Tasten ALT + F11 gedrückt, und das Fenster Microsoft Visual Basic for Applications öffnet sich.

3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Text in Diagrammtiteln innerhalb des aktiven Arbeitsblatts finden und ersetzen

Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
For Each ch In xWs.ChartObjects
    If ch.Chart.HasTitle Then
        ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
    End If
Next
End Sub

4. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Eingabefeld wird angezeigt, das Sie auffordert, Ihren alten Text einzugeben, den Sie ersetzen möchten, siehe Screenshot:

a screenshot of entering the old chart title

5. Klicken Sie dann auf die Schaltfläche OK, und ein weiteres Eingabefeld erscheint, in dem Sie den neuen Textwert eingeben müssen, mit dem Sie den alten ersetzen möchten, siehe Screenshot:

a screenshot of entering the new chart title

6. Klicken Sie erneut auf OK, um das Eingabefeld zu schließen, und Ihre alten Texte wurden auf einmal durch die neuen im aktuellen Arbeitsblatt ersetzt, wie im folgenden Screenshot gezeigt:

a screenshot of the result

Hinweis: Wenn Sie den Textwert von Diagrammtiteln in allen Arbeitsblättern einer Arbeitsmappe finden und ersetzen müssen, sollten Sie den folgenden VBA-Code verwenden: (Das Verfahren ist dasselbe wie oben)

VBA-Code: Text in Diagrammtiteln innerhalb aller Arbeitsblätter finden und ersetzen

Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
    For Each ch In sh.ChartObjects
        If ch.Chart.HasTitle Then
            ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
        End If
    Next
Next
End Sub

Verwandte Artikel:

Wie kann man Text innerhalb von Kommentaren in Excel finden und ersetzen?

Wie kann man spezifischen Text in mehreren Textfeldern in Excel finden und ersetzen?

Wie kann man mehrere Hyperlink-Pfade auf einmal in Excel ändern?


Beste Büroproduktivitätswerkzeuge

🤖 Kutools AI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Finden, Hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten oder Zellen kombinieren ohne Datenverlust   |   Runden ...
Erweiterte SVERWEIS: Mehrfachkriterien SVERWEIS    Mehrfachwert SVERWEIS  |   Mehrblatt-SVERWEIS   |   Fuzzy Match ....
Erweiterte Dropdown-Liste: Schnell Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Eine bestimmte Anzahl von Spalten hinzufügen  |  Spalten verschieben  |  Sichtbarkeitsstatus ausgeblendeter Spalten umschalten  |  Bereiche & Spalten vergleichen ...
Hervorgehobene Funktionen: Gitterfokus   |  Entwurfsansicht   |   Erweiterte Formelleiste    Arbeitsmappe & Arbeitsblatt-Manager   |  AutoText-Bibliothek (Auto Text)   |  Datumsauswahl   |  Daten zusammenführen   |  Zellen verschlüsseln/entschlüsseln    E-Mail senden nach Liste   |  Spezialfilter   |   Spezialfilter (Filtern fett/kursiv/durchgestrichen...) ...
Top15 Werkzeugsets12 Textwerkzeuge (Text hinzufügen, Bestimmte Zeichen löschen, ...)   |   50+ Diagramm typen (Gantt-Diagramm, ...)   |   40+ Praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...)   |   19 Einfügewerkzeuge (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Konvertierungswerkzeuge (In Wörter umwandeln, Währungsumrechnung, ...)   |   7 Konsolidieren & Aufteilen Werkzeuge (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!