Thema Datum  Von Nutzer Rating
Antwort
Rot Löschen von PivotCharts mit der "For Each" Anweisung
 03.12.2015 07:13:21 ExcelRookie111
NotSolved
03.12.2015 13:16:38 Gast74728
NotSolved

Ansicht des Beitrags:
Von:
ExcelRookie111		 Datum:
03.12.2015 07:13:21		 Views:
1492		 Rating:
     
Antwort:
  Ja
Thema:
Löschen von PivotCharts mit der "For Each" Anweisung

Hallo liebe Forum-Gemeinde,

ich brauche ganz dringend Hilfe!

Ich würde gerne mit meinem Makro erst alle Inhalte löschen und im nächsten Schritt eine PivotChart entfernen.
Mit einem Makro will ich das bei verschiedenen Sheets anstellen. Heißt es muss auf beliebige Tabellenblätter anwendbar sein.
Das mit dem löschen der Inhalte klappt wunderbar! Leider komme ich bei den Formen nicht sehr weit.

Zuerst einmal mein bisheriger Code:
 

Sub Sheet_Ausgangslage()

ActiveSheet.UsedRange.ClearContents

Dim shp As Shape

For Each shp In ThisWorkbook.Sheets(shp.Name).Shapes
    If shp.Name = "MKV*" Then shp.Delete
    End If
Next shp

End Sub

Ich versuche alle Tabellenblätter die mit "MKV" anfangen abzugreifen.

Vielen lieben Dank für eure Hilfe!!!

Grüße 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Löschen von PivotCharts mit der "For Each" Anweisung
 03.12.2015 07:13:21 ExcelRookie111
NotSolved
03.12.2015 13:16:38 Gast74728
NotSolved