Löschbereich

Forumthread: Löschbereich
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Löschbereich

Löschbereich

05.06.2009 17: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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Lies mal in der VBE-Hilfe nach,...

05.06.2009 17:41:57

Luc:-?
AW: Löschbereich

05.06.2009 18:14:55

ransi

Lies mal in der VBE-Hilfe nach,...

05.06.2009 17: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 18: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

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