Thema Datum  Von Nutzer Rating
Antwort
Rot per Makro alles im Bereich löschen lassen
 02.02.2017 02:54:29 Icke
NotSolved
02.02.2017 05:27:17 Gast36235
*****
Solved
02.02.2017 07:47:28 Icke
NotSolved

Ansicht des Beitrags:
Von:
Icke		 Datum:
02.02.2017 02:54:29		 Views:
1053		 Rating:
     
Antwort:
  Ja
Thema:
per Makro alles im Bereich löschen lassen

Hi ihr!

Ich möchte auf dem aktuellen Tabellenblatt im Bereich A14-AZ29 alle Grafiken wie Bilder, Pfeile,Textboxen via Makro gelöscht bekommen.

mit folgenden Code werden mir nur die Fotos gelöscht, aber nicht die anderen Objekte

 

Sub BilderLöschen()
Dim shp As Object
Dim sh As Worksheet
Dim rngBereich As Range
    Set sh = ActiveSheet   ' anpassen
    Set rngBereich = sh.Range("A14:AZ29")  ' anpassen
    For Each shp In sh.Shapes
        Debug.Print shp.Name
        If shp.Type = 13 Then
            If Not Intersect(shp.TopLeftCell, rngBereich) Is Nothing Then shp.Delete
        End If
    Next
End Sub

Wie muss der Code erweitert werden, dass er alles in diesem Bereich löscht?

Danke schonmal

 

Bye Icke

 

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 per Makro alles im Bereich löschen lassen
 02.02.2017 02:54:29 Icke
NotSolved
02.02.2017 05:27:17 Gast36235
*****
Solved
02.02.2017 07:47:28 Icke
NotSolved