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

Bestimmte Zeilen inkl. Shapes-Grafik löschen

Forumthread: Bestimmte Zeilen inkl. Shapes-Grafik löschen

Bestimmte Zeilen inkl. Shapes-Grafik löschen
16.02.2005 21:57:00
Gregor
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zeilen inkl. Shapes-Grafik löschen
K.Rola
Hallo,
eh lange Erklärungen und Rückfragen kommen, lad mal ein Beispiel hoch.
Gruß K.Rola
AW: Bestimmte Zeilen inkl. Shapes-Grafik löschen
16.02.2005 23:17:24
Josef
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!
Anzeige
AW: Bestimmte Zeilen inkl. Shapes-Grafik löschen
Gregor
Vielen Dank Sepp! Funktioniert einwandfrei.
Merci auch allen andern für ihre Bemühungen.
Grüsse
Gregor

Beliebteste Forumthreads (12 Monate)

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