Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Shapes löschen

Shapes löschen
Frank
Hallo Zusammen!
Allen ein schönes Wochenende!!!
Mein Problem: Ich kopiere aus dem Internet eine Art Tabelle und diese enthält kleine Bildchen. Nun lösche ich diese zuvor kopierten Daten wieder, bevor ich neu kopiere und in Excel einfüge. Das klappt soweit, bis auf die Tatsache, dass sich die kleinen Bildchen nich mit löschen lassen. Dazu zeichnete ich folgendes Makro auf:
ActiveSheet.Shapes("Picture 287").Select
Selection.Cut
Da ich nun aber die einzelnen Bilder nicht alle mit Nummern kenne, weiß ich nicht wie ich es anstellen muss, dass ich alle Bildchen gelöscht bekomme?
Wer weiß Rat und kann mir helfen, Dank im Vorraus!!!
Gruß Frank H.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Shapes löschen
19.09.2009 14:39:44
fcs
Hallo Frank,
hier der radikale Shape-Löscher.
Der ggf. mehrfache durchlau ist erforderlich, um in einem Aufwasch Bilder, Formular-Steuerelemente und Active-X-Steuerelemente -die Alle zur Shape-Familie gehören- aus einem Blatt zu entfernen.
Gruß
Franz
Sub ShapesLoeschen()
If MsgBox("Alle Shapes im Blatt löschen?", vbOKCancel, _
"Shapes Löschen") = vbOK Then
With ActiveSheet
ShapesLoeschen:
.Shapes.SelectAll
Selection.Delete
If .Shapes.Count > 0 Then GoTo ShapesLoeschen
End With
End If
End Sub

Anzeige
AW: Shapes löschen
19.09.2009 15:13:03
Frank
Hallo Franz!!!
Danke dir, das hilft mir ungemein weiter!!!
Dann dir noch viel Spaß im Wochenende und beim exceln!!!
Gruß Frank H.
noch eine Version
19.09.2009 16:15:25
Tino
Hallo,
so müsste es auch gehen.
Sub KillAll()
On Error Resume Next
ActiveSheet.DrawingObjects.Delete
End Sub
Achtung, löscht auch alle Steuerelemente also auch Button, Textfelder usw...
Gruß Tino
Anzeige
AW: ohne Makro
19.09.2009 20:38:31
Daniel
gehts über:
BEARBEITEN - GEHE ZU - INHALTE - OBJEKTE
dann sind alle Objekte (Shapes, Formen, Buttons uws) und können durch ENTFERNEN gelöscht werden.
wenn man das mit dem Makrorecorder aufzeichnet, kommt Tinos Makro bei raus.
Gruß, Daniel
AW: ohne Makro
20.09.2009 09:03:33
Frank
Hallo Daniel!
Auch ein "geiler" Tipp!!! Besten Dank!!! Schönen Sonntag noch!!!
Gruß Frank H.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Shapes in Excel effektiv löschen


Schritt-für-Schritt-Anleitung

Um alle Formen, Bilder und Steuerelemente in Excel zu löschen, kannst Du ein einfaches Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeinDokument)", wähle "Einfügen" und dann "Modul".

  3. Kopiere den folgenden Code in das Modul:

    Sub ShapesLoeschen()
       If MsgBox("Alle Shapes im Blatt löschen?", vbOKCancel, _
       "Shapes Löschen") = vbOK Then
           With ActiveSheet
               Do
                   .Shapes.SelectAll
                   Selection.Delete
               Loop While .Shapes.Count > 0
           End With
       End If
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus: Gehe zu Entwicklertools > Makros, wähle ShapesLoeschen und klicke auf Ausführen.

Mit diesem Makro kannst Du alle Bilder, Formen und Steuerelemente auf einem Blatt schnell und effizient löschen.


Häufige Fehler und Lösungen

  • Fehler: "Excel Steuerelement lässt sich nicht löschen"

    • Lösung: Stelle sicher, dass Du das richtige Objekt ausgewählt hast. Manchmal sind Steuerelemente in einer Gruppe zusammengefasst.
  • Fehler: Makro funktioniert nicht

    • Lösung: Überprüfe, ob Makros in Deinen Excel-Einstellungen aktiviert sind.

Alternative Methoden

Es gibt auch manuelle Methoden, um Objekte in Excel zu löschen. Hier sind zwei gängige Alternativen:

  1. Über das Menü:

    • Gehe zu BEARBEITEN > GEHE ZU > INHALTE und wähle OBJEKTE. Danach kannst Du alle Objekte mit der ENTFERNEN-Taste löschen.
  2. Mit einem anderen Makro:

    • Verwende den folgenden Code, um alle Objekte zu löschen:
    Sub KillAll()
       On Error Resume Next
       ActiveSheet.DrawingObjects.Delete
    End Sub

Achtung: Dieses Makro löscht auch alle Steuerelemente, wie Buttons und Textfelder.


Praktische Beispiele

Hier sind einige praktische Anwendungsfälle:

  • Alle Bilder aus Excel entfernen: Wenn Du viele Bilder hast, die Du nicht benötigst, verwende das oben genannte Makro ShapesLoeschen.

  • Excel alle Textfelder löschen: Du kannst das Makro anpassen, um nur Textfelder zu löschen, indem Du spezifische Bedingungen hinzufügst.


Tipps für Profis

  • Makros organisieren: Wenn Du regelmäßig mit Makros arbeitest, erstelle eine separate Datei, um alle Deine nützlichen Makros zu speichern.

  • Testen von Makros: Teste neue Makros immer zuerst in einer Kopie Deiner Arbeitsmappe, um unerwartete Datenverluste zu vermeiden.


FAQ: Häufige Fragen

1. Wie kann ich alle Bilder in Excel löschen, ohne ein Makro zu verwenden? Du kannst alle Bilder auch manuell über das Menü BEARBEITEN > GEHE ZU > INHALTE > OBJEKTE löschen.

2. Was passiert, wenn ich das Makro anwende? Das Makro löscht alle Shapes, Bilder und Steuerelemente auf dem aktiven Arbeitsblatt. Stelle sicher, dass Du keine wichtigen Daten verlierst.

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