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"