Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige