Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Löschbereich

Forumthread: Löschbereich

Löschbereich
05.06.2009 15:25:58
gio
Hallo,
unteres Makro löscht mir nicht in Zellbereich C396 bis K455.
Es löscht mir alles was ab der Spalte C ist.
Wie kannn ich Makro dahingehend ändern?
Danke
gio

Sub BilderLöschen()
Dim Bild As Shape
For Each Bild In ActiveSheet.Shapes
If Bild.Left >= Range("C396").Left And Bild.Left


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Lies mal in der VBE-Hilfe nach,...
05.06.2009 15:41:57
Luc:-?
...Gio,
worauf sich die Eigenschaft .Left bei Shapes bezieht; bei Range bezieht sie sich jedenfalls auf das Blatt. Evtl musst du unter Bezug auf ActiveWindow.VisibleRange umrechnen.
Gruß Luc :-?
AW: Löschbereich
05.06.2009 16:14:55
ransi
HAllo
Versuch mal diesen Ansatz:
Option Explicit

Sub BilderLöschen()
Dim Bild As Shape
Dim bereich As Range
Set bereich = ActiveSheet.Range("C396:K455")
For Each Bild In ActiveSheet.Shapes
    If Not Intersect(bereich, Bild.TopLeftCell) Is Nothing Then Bild.Delete
Next Bild
End Sub

ransi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige