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

Ansicht des Beitrags:
Von:
Gast36235		 Datum:
02.02.2017 05:27:17		 Views:
571		 Rating:
     
Antwort:
 Nein
Thema:
per Makro alles im Bereich löschen lassen

Hallo,

...nicht erweitert, sondern gekürzt......

Sub BilderLöschen()
Dim shp As Shape
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
        If Not Intersect(shp.TopLeftCell, rngBereich) Is Nothing Then shp.Delete
    Next
End Sub

Gruß,

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