Bestimmte Zeilen inkl. Shapes-Grafik löschen

Bild

Betrifft: Bestimmte Zeilen inkl. Shapes-Grafik löschen von: Gregor
Geschrieben am: 16.02.2005 21:57:00

Folgendes Problem:

wenn ich alle Zeilen löschen möchte, die z.B. in Spalte 8 ein "a" stehen haben, dann gelingt mir das zwar, nur werden die shapes dieser Zeile nicht mitgelöscht!!

Weiss jemand Rat?

Vielen Dank

Gregor

Bild


Betrifft: AW: Bestimmte Zeilen inkl. Shapes-Grafik löschen von: K.Rola
Geschrieben am: 16.02.2005 23:11:01

Hallo,

eh lange Erklärungen und Rückfragen kommen, lad mal ein Beispiel hoch.

Gruß K.Rola


Bild


Betrifft: AW: Bestimmte Zeilen inkl. Shapes-Grafik löschen von: Josef Ehrensberger
Geschrieben am: 16.02.2005 23:17:24

Hallo Gregor!

Am einfachsten mit zwei Schleifen.

Sub loeschenMitShapes()
Dim shp As Shape
Dim lastRow As Long, lRow As Long
lastRow = IIf(Range("H65536") <> "", 65536, Range("H65536").End(xlUp).Row)
   For Each shp In ActiveSheet.Shapes
   If Cells(shp.TopLeftCell.Row, 8) = "a" Then shp.Delete
   Next
   
   For lRow = lastRow To 1 Step -1
   If Cells(lRow, 8) = "a" Then Rows(lRow).Delete
   Next
End Sub



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: AW: Bestimmte Zeilen inkl. Shapes-Grafik löschen von: Gregor
Geschrieben am: 17.02.2005 08:21:13


Vielen Dank Sepp! Funktioniert einwandfrei.

Merci auch allen andern für ihre Bemühungen.


Grüsse

Gregor


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bestimmte Zeilen inkl. Shapes-Grafik löschen"