Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

alle Daten löschen

alle Daten löschen
21.01.2008 12:09:00
Kurt
Hey Zusammen, ich möchte in allen vorhandenen Tabellen die Diagramme, wenn vorhanden
löschen.
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete
jetzt sollte die nächste Tabelle kommen etc.
gr KurtP

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle Daten löschen
21.01.2008 12:46:12
Heiko
Hallo Kurt,
z.B. so:

Sub AlleGrafikenRaus()
Dim wksTabellen As Worksheet
For Each wksTabellen In ThisWorkbook.Worksheets
wksTabellen.ChartObjects.Delete
Next wksTabellen
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !

Danke Heike , habs durchgeführt -)
21.01.2008 13:55:14
Kurt

HeikO, soviel Zeit muss sein ;-)
21.01.2008 13:57:00
Heiko
Hallo Kurt,
HEIKO soviel Zeit muss sein !!!
Gruß Heiko

Ich bitte um Entschuldigung... -)
21.01.2008 17:56:00
Kurt
Hallo Heiko,
war etwas im Streß, deshalb bitte ich um Entschuldigung,
gruß Kurt P

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige