Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Bestimmte Zeilen inkl. Shapes-Grafik löschen"
Befindet sich die aktive Zelle in einem bestimmten Bereich? Werte eins bestimmten Monats summieren
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen Alle Links zu einer bestimmten Arbeitsmappe löschen
Anzahl eines bestimmten Wochentages im Monat Alle Dateien ab einem bestimmten Datum listen
Daten eines bestimmten Jahres filtern Word mit bestimmtem Dokument starten
Bestimmte Anzahl von Zeichen zulassen Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen