alle Daten löschen

Forumthread: alle Daten löschen

alle Daten löschen

21.01.2008 13: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

AW: alle Daten löschen

21.01.2008 13:46:12

Heiko
Danke Heike , habs durchgeführt -)

21.01.2008 14:55:14

Kurt
HeikO, soviel Zeit muss sein ;-)

21.01.2008 14:57:00

Heiko
Ich bitte um Entschuldigung... -)

21.01.2008 18:56:00

Kurt

AW: alle Daten löschen

21.01.2008 13: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 14:55:14

Kurt

HeikO, soviel Zeit muss sein ;-)

21.01.2008 14:57:00

Heiko

Hallo Kurt,
HEIKO soviel Zeit muss sein !!!
Gruß Heiko

Ich bitte um Entschuldigung... -)

21.01.2008 18:56:00

Kurt

Hallo Heiko,
war etwas im Streß, deshalb bitte ich um Entschuldigung,
gruß Kurt P

Forumthread: alle Daten löschen

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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread