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

Ansicht des Beitrags:
Von:
Gast74728		 Datum:
03.12.2015 13:16:38		 Views:
906		 Rating:
     
Antwort:
  Ja
Thema:
Löschen von PivotCharts mit der "For Each" Anweisung

Hallo Rookie! In Zeile 7 soltest du bei Sheets auch ein Tabellenblatt bezeichen. So suchst du in einem Tabellenblatt, welches den selben Namen hat wie Shape. Und bei deiner IF Schleife darauf achten, dass das end if weggelassen werden muss, wenn du die Aktion gleich hinter das then schreibst. Wenn du das shp.delete eine Zeile tiefer setzt, würde der Schleifenaufbau passen. Und beim Abgleich vergeichst du den Namen mit einem festen String. Das * gilt da nicht als Platzhalter. Da vom Namen der Shape die ersten 3 Zeichen mit dem String vergleichen.

Könnte dann so aussehen.

Sub Sheet_Ausgangslage()
 
ActiveSheet.UsedRange.ClearContents
 
Dim shp As Shape
 
For Each shp In ThisWorkbook.Sheets(1).Shapes
    If Left(shp.Name, 3) = "MKV" Then     shp.Delete
Next shp
 
End Sub

 

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
03.12.2015 07:13:21 ExcelRookie111
NotSolved
Blau Löschen von PivotCharts mit der "For Each" Anweisung
 03.12.2015 13:16:38 Gast74728
NotSolved