Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige