Grant kopiert regelmäßig Informationen von Webseiten und fügt diese Informationen in Arbeitsblätter ein. Er erhält nicht nur Rohdaten, sondern auch andere Elemente wie Kontrollkästchen, Bilder, Logos usw. Grant möchte auf einfache Weise all diese Nicht-Datenelemente entfernen.

Wenn Sie zum ersten Mal aus dem Web in ein Excel-Arbeitsblatt einfügen, sollten Sie die Option „Inhalte einfügen“ in Betracht ziehen, um beispielsweise „Als Text einfügen“ oder „Werte einfügen“ auszuführen. Dies sollte helfen, zu verhindern, dass diese unerwünschten Objekte überhaupt in Ihr Arbeitsblatt aufgenommen werden.

Wenn Paste Special nicht die gewünschten Ergebnisse liefert oder wenn Sie mit einem Arbeitsblatt arbeiten, in das die Informationen und Objekte bereits eingefügt wurden, können Sie einige Dinge ausprobieren. Das erste, was die meisten Leute versuchen, ist, Go To Special auf folgende Weise zu verwenden:

  1. Drücken Sie F5. Excel zeigt das Dialogfeld Gehe zu an.

  2. Klicken Sie auf die Schaltfläche Spezial. Excel zeigt das Dialogfeld Gehe zu Spezial an.

(Siehe Abbildung 1.)

  1. Wählen Sie die Option Objekte.

  2. OK klicken.

Wenn Sie dies tun, wählt Excel eine Reihe von Objekten im Arbeitsblatt aus, und Sie können dann die Entf-Taste drücken, um sie zu entfernen.

Das Problem ist, dass diese Methode nicht alle Nicht-Datenelemente im Arbeitsblatt auswählt. Es wird nur eine Teilmenge davon ausgewählt – die Elemente, die von Excel als „Objekte“ betrachtet werden.

Eine bessere Lösung besteht darin, ein Makro zu verwenden, um alle Formen im Arbeitsblatt auszuwählen und sie dann zu löschen. Dies ist ziemlich einfach, wenn Sie ein Makro wie dieses verwenden:

Sub DeleteAllShapes1()

Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next End Sub

Das Makro durchläuft einfach jede Form im aktiven Arbeitsblatt und löscht jede. Sie können das Makro nur ein wenig erweitern, indem Sie auch alle im Arbeitsblatt eingefügten Hyperlinks löschen. Alles was es braucht ist das Hinzufügen einer einzelnen Zeile:

Sub DeleteAllShapes2()

Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next     ActiveSheet.Hyperlinks.Delete End Sub

Wenn diese Makros aus irgendeinem seltsamen Grund nicht alle Nicht-Datenelemente entfernen, die entfernt werden sollen, können Sie einen anderen Ansatz verwenden:

Machen Sie einen Stopp in NotePad vor Excel. Fügen Sie einfach Ihre Webdaten in ein leeres NotePad-Dokument ein, wählen Sie diese Informationen aus (nachdem sie eingefügt wurden) und kopieren Sie sie zurück in die Zwischenablage. Fügen Sie es dann in Excel ein.

Das einzige, was übrig bleibt, sollten gerade Daten sein.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (6951) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier:

Web Stuff loswerden.