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
Das ist 'ne Reißzwecke, die Excel daran hindert, von der SSD schnell ins RAM überzusiedeln.
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?
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
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
Super :) Danke, werde es gleich montags versuchen und berichten
Vielen Dank ;)
Hi,
bitte nicht unnötig vollzitieren. Es reicht, rechts unterhalb des Beitrags den Button "Antworten" zu benutzen.