Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Löschen von Diagrammen

Forumthread: Löschen von Diagrammen

Löschen von Diagrammen
13.10.2006 10:02:38
Diagrammen
Hallo,
ich würde gern in einem Tabellenblatt alle Diagramme löschen und zwar nur diese. Die restlichen Zellen sollen erhalten bleiben. Gibt es einen Befehl der alle Diagramme selektiert oder eine Möglichkeit den Objektnamen der Diagramme festzulegen?
Dank im Voraus
Gerd
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen von Diagrammen
13.10.2006 11:56:50
Diagrammen
Hallo Gerd,

Sub test()
Dim wks As Worksheet
Dim chobj As ChartObject
For Each wks In Worksheets
For Each chobj In wks.ChartObjects
chobj.delete
Next
Next
End Sub

Gruß
Harry
AW: Löschen von Diagrammen
13.10.2006 12:01:24
Diagrammen
Hallo Gerd,
Makro-Lösungen

Sub DiagrammeLoeschen()
'Löscht alle Diagramme im aktiven Blatt
If MsgBox("Alle Diagramme löschen?", vbYesNo + vbQuestion) = vbYes Then
ActiveSheet.ChartObjects.Delete
End If
End Sub
Sub DiagrammeBenamen()
'Benamen aller Diagramme im aktiven Blatt
Dim Diag As ChartObject, Eingabe As String
For Each Diag In ActiveSheet.ChartObjects
Diag.TopLeftCell.Select
Diag.Activate
Eingabe = InputBox("Diagrammname:", "Diagramme benennen", Diag.Name)
If Eingabe <> "" Then
Diag.Name = Eingabe
End If
Next
End Sub

Gruß
Franz
Anzeige
AW: Löschen von Diagrammen
13.10.2006 14:27:17
Diagrammen
Vielen Dank euch beiden!
Funkt super!
Gruß
Gerd
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige