Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1368to1372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige