Unverständliches Excel Symbol in Zeile

[user_99]

Hallo,

Ich habe ein Problem mit einem Symbol in Excel.
Laut einem ehemaligen Mitarbeiter sind Bilder hinterlegt, meint mein Vorgesetzter.
Verstehe es allerdings nicht da der Inhalt leer ist.
Der hat das Problem damals gelöst, allerdings ist es (fragt mich nicht wie) wieder aufgetreten.

Markiere ich alle Zellen und kopiere Sie in eine neue Mappe tritt das Problem nicht auf.

Man kann das Symbol weder anklicken noch sonstiges...

Excel startet dadurch extrem langsam.


Bitte um Hilfe

Vielen Dank

[LCohen]

Das ist 'ne Reißzwecke, die Excel daran hindert, von der SSD schnell ins RAM überzusiedeln.

[WillWissen]

Hi,

markiere mal einen etwas größeren Bereich um das Symbol herum und drücke F5. Hier zu Inhalte und dann aktiviere links unten Objekte. OK. Was bekommst du für eine Meldung?

[user_99]

Hallo, Danke für deine rasche Antwort.

Habe ich schon vorher versucht. Es sind keine Inhalte vorhanden.

lg

---

Danke für deine schnelle Rückmeldung.

Ok, kann ich diese "Reiszwecke" irgendwie entfernen?

lg

[chris-ka]

Hallo!

Anbei ein Makro was ggf. helfen könnte,
Das Makro löscht alles an Objekten wie
Bilder, Diagramme, ActivexSteuerlemente, Formulare, usw...
gehe wie folgt vor:
 
1. erstelle eine KOPIE deiner Mappe
2. drücke in der Kopie deiner Mappe  die Tastenkombination Alt+F11
3. klicke in der Menüleiste auf Einfügen -> Modul
4. kopiere den hier eingestellten Code in dieses Modul
5. schließe das Fenster
6. drücke Alt+F8
7. führe das Makro „remove_all_objects“ aus
8. speichere die Datei ohne Makros ab und kontrolliere das Ergebnis.

Code:

Option Explicit
Sub remove_all_objects()
    Dim wb As Workbook
    Dim sh As Worksheet
    Dim myshape As Shape
    Set wb = ActiveWorkbook
    For Each sh In wb.Worksheets
        For Each myshape In sh.Shapes
            myshape.Delete
        Next
    Next
    Set myshape = Nothing
    Set sh = Nothing
    Set wb = Nothing
End Sub

oder diesen Code der löscht nur im aktuellen Blatt in einem bestimmten Bereich alle Objects

Code:

Option Explicit
Sub remove_all_objects()
    Dim myshape As Shape
    Dim rng As Range
    Set rng = Range("A1:F100") 'anpassen wo gelöscht werden sollte
    For Each myshape In ActiveSheet.Shapes
        If Not Intersect(myshape.TopLeftCell, rng) Is Nothing Then
            myshape.Delete
        End If
    Next
    Set myshape = Nothing
End Sub

anbei noch als Video
https://www.youtube.com/watch?v=OJi33tMAV30

[user_99]

Super :) Danke, werde es gleich montags versuchen und berichten  

Vielen Dank ;)

[WillWissen]

Hi,

bitte nicht unnötig vollzitieren. Es reicht, rechts unterhalb des Beitrags den Button "Antworten" zu benutzen.