Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen löschen inkl. Zeichnungsobjekte

Zellen löschen inkl. Zeichnungsobjekte
04.01.2006 11:51:16
Ellen
Hallo,
ich möchte in einem Tabellenblatt einen Zellbereich löschen der auch Zeichnungsobjekte (Quadrate, Striche,....) enthält. Der Zellbereich soll nicht geleert werden sondern gelöscht.
Wenn ich nun folgenden Code benutze:
Rows("27:10000").Delete
Dann werden die Zellen gelöscht und die Zeichnungsobjekte werden zu einzelnen Strichen zusammengeschoben und bleiben zwischen Zelle 26 und 27.
Wie kann ich erreichen, dass diese auch gelöscht werden. Es befinden sich in der gleichen Tabelle in Zeile 1-25 jedoch noch Zeichnungsobjekte die bestehen bleiben sollen.
Gruß,
Ellen

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen löschen inkl. Zeichnungsobjekte
04.01.2006 12:13:02
Eugen
hi
ins unreine gesprochen
for i = activesheet.shapes.count to 1 step -1
if activesheet.shapes(i).Topleftcell.Row grösser 25 then
activesheet.shapes(i).delete
end if
next i
mfg
AW: Zellen löschen inkl. Zeichnungsobjekte
04.01.2006 13:07:03
Ellen
Hallo Eugen,
danke für deine Idee, aber leider passiert bei mir mit diesem Code gar nix.
Gruß,
Ellen
AW: Zellen löschen inkl. Zeichnungsobjekte
04.01.2006 14:19:47
Ellen
Hat sich hiermit erledigt:

Sub Loeschen_mit_Shapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Row > 25 Then shp.Delete
Next
Rows("27:10000").Delete
End Sub

Danke für eure Vorschläge.
Gruß,
Ellen
Anzeige

87 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige