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

Nach Makro 15mb ?

Forumthread: Nach Makro 15mb ?

Nach Makro 15mb ?
01.07.2014 16:17:54
Kurt

Guten Tag,
habe eine Datei, die ist 6,7mb groß.
Wenn ich mein Makrto laufen lasse (ca. 20 sek.) wegen Auswertung, ist
die Datei 20mb groß.
Was ist das ?
gruß kurt

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach Makro 15mb ?
01.07.2014 16:24:20
Hajo_Zi
Hallo Kurt,
hast Du viel Zellen mit einzelnen Rahmen kopiert?
Nur wenige sehen was Dein Makro macht.

J hab ich
01.07.2014 16:32:12
Kurt
Hallo Hajo,
ja ich kopiere gefilterte Daten, bis zu 12.000 Zeilen.
gruß
kurt

Fehlermeldung beim löschen
01.07.2014 16:41:57
Kurt
Hallo Hajo,
wollte die Zeilen nach der letzt beschriebene Zeile mit
Shift+str und pfeil nach unten, löschen,
leider Fehlermeldung.
Microsoft Excel kann diesen Vorgang mit den verfügbaren
Ressourcen nicht ausführen.
Bitte wählen Sie weniger Daten aus oder schliessen Sie andere Programme.
Hab sonst nichts offen.
Hinweis:
wenn ich excel offen habe und ich möchte die Datei laden, geht auch nicht,
wird von Fehler gesprochen.
Nach schließen und direkt die Datei geht es.
hruß kurt

Anzeige
Noch ein Hinweis
01.07.2014 17:14:05
Kurt
Hallo Hajo,
wenn ich excel offen habe kommt:
Von Excel unlesbarer Inhalt in Datei..., gefunden.
Möchten Sie denInhalt dieser Arbeitsmappe wiederherstellen ?...
gruß
kurt

Habe den Fehler gefunden aber....brauch makro
01.07.2014 18:23:12
Kurt
Hallo Hajo,
ich habs gefunden.
Wenn ich die Tabelle ab der letzten belegten Zelle in Spalte B
nach unten mit Shift + strg +Pfeil n.unten selectiere und dann
Zellen lösche, habe ich meine gewünschten 5,6 mb.
Gibt es so ein Makro dafür ?
gruß kurt

Anzeige
Hajo, habe ich zusammen.... -)
01.07.2014 22:25:21
Kurt
Hallo Hajo,
habe mir für meine Tabelle zusammengestellt.
Dim Loletzte As Long
Loletzte = Cells(Rows.Count, 2).End(xlUp).Row + 1
' Cells(Loletzte, 2).Select 'das kann gelöscht werden
Rows(Loletzte).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
es funktioniert,
gruß kurt

Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18