Wie sucht und ersetzt man Text in Diagrammtiteln in Excel?
Diagramme sind in Excel äußerst nützlich, und wir versehen sie oft mit Titeln, um sie eindeutig zu kennzeichnen. Haben Sie jedoch schon einmal versucht, den Text in den Diagrammtiteln mehrerer Diagramme mithilfe von „Suchen und Ersetzen“ anzupassen? Heute zeige ich Ihnen, wie Sie einen bestimmten Text in mehreren Diagrammtiteln suchen und ihn in Excel durch einen anderen Wert ersetzen können.
Suchen und Ersetzen von Text in Diagrammtitel in Excel mithilfe von VBA-Code
Suchen und Ersetzen von Text in Diagrammtitel in Excel mithilfe von VBA-Code
Angenommen, Sie haben ein Arbeitsblatt mit Diagrammen wie im folgenden Screenshot gezeigt und möchten den Text „Januar“ ausschließlich in allen Diagrammtiteln durch „Februar“ ersetzen. Natürlich könnten Sie dies manuell einzeln anpassen – bei vielen Diagrammen wäre das jedoch zeitaufwendig. Der folgende VBA-Code hilft Ihnen daher effizient bei dieser Aufgabe.
1. Aktivieren Sie das Arbeitsblatt, das die Diagramme enthält, deren Titel Sie suchen und ersetzen möchten.
2. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic für Applikationen-Fenster zu öffnen.
3. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Suchen und Ersetzen von Text in Diagrammtitel innerhalb des aktiven Arbeitsblatts
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 anschließend die F5-Taste, um diesen Code auszuführen. Daraufhin erscheint eine Eingabeaufforderung, in der Sie aufgefordert werden, den zu ersetzenden alten Text einzugeben (siehe Screenshot):
5. Klicken Sie dann auf die OK-Schaltfläche. Es öffnet sich ein weiteres Eingabefeld, in das Sie den neuen Text eingeben müssen, durch den der alte ersetzt werden soll (siehe Screenshot):
6. Klicken Sie erneut auf OK, um das Eingabefeld zu schließen. Ihre alten Texte wurden nun im aktuellen Arbeitsblatt gleichzeitig durch die neuen Werte ersetzt, wie im folgenden Screenshot gezeigt:
Hinweis: Falls Sie den Textwert von Diagrammtitel in allen Arbeitsblättern einer Arbeitsmappe Suchen und Ersetzen müssen, verwenden Sie bitte den folgenden VBA-Code (die Vorgehensweise ist identisch wie oben):
VBA-Code: Suchen und Ersetzen von Text in Diagrammtitel innerhalb aller Arbeitsblätter
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 sucht und ersetzt man Text innerhalb von Kommentaren in Excel?
Wie sucht und ersetzt man bestimmten Text in mehreren Textfeldern von Excel?
Wie können Sie mehrere Hyperlink-Pfade in Excel gleichzeitig ändern?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins