Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Grafik >400 löschen

Forumthread: Grafik >400 löschen

Grafik >400 löschen
14.09.2013 16:58:51
Heinz
Hallo Leute
Ich möchte Grafiken die grösser 400 sind löschen.
Zb.Grafik 498
Könnte mir bitte jemand helfen?
Gruß Heinz

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Grafik >400 löschen
14.09.2013 17:27:14
Hajo_Zi
Hallo Heinz,
ich erstelle nun nicht so eione Datei, Die Zeit hat schon jemand investiert.
Ungetestet
Option Explicit
Sub Bilder_loeschen()
Dim InI As Integer                              ' Schleifenvariable
With ActiveSheet
For InI = .Shapes.Count To 1 Step -1
If InStr(.Shapes(InI).Name, " ") > 0 Then
If IsNumeric(Mid(.Shapes(InI), InStrRev(.Shapes(InI).Name, " ") + 1)) Then
If Mid(.Shapes(InI), InStrRev(.Shapes(InI).Name, " ") + 1) > 400 Then
.Shapes(InI).Delete
End If
End If
End If
Next
End With
End Sub

Anzeige
AW: Grafik >400 löschen
14.09.2013 17:39:24
Heinz
Hallo Hajo
Super Danke.
Noch ein schönes WE
Gruß Heinz
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige