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

Nach Makro 15mb ?

Forumthread: Nach Makro 15mb ?

Nach Makro 15mb ?
01.07.2014 14: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 14: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 14:32:12
Kurt
Hallo Hajo,
ja ich kopiere gefilterte Daten, bis zu 12.000 Zeilen.
gruß
kurt

Fehlermeldung beim löschen
01.07.2014 14: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 15: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 16: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 20: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
;

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