Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
472to476
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
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten kopieren - nicht genügend Arbeitspeicher

Spalten kopieren - nicht genügend Arbeitspeicher
26.08.2004 07:23:37
sarah
Guten morgen,
kopiere seit heute morgen um 5 Spalten aus einem Blatt in neu zu erstellende Blätter.
Beim etwa 15ten kommt sie Meldung; nicht genügend Arbeitspeicher!
Auch nach einem zeiten Aufruf der Loop-Schleife kommt der Fehler.
Hintergrund; 1Blatt mit etwa 120 Spalten, jede Spalte soll in ein eigenes Blatt kopiert werden mittels Loop;
Vielleicht hat jemand ähnliches Problem schon gelöst, die anderen Fälle im Archiv haben mir leider nicht gehólfen!
gruss sarah

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten kopieren - nicht genügend Arbeitspeicher
P@ulchen
Hi Sarah,
poste doch mal bitte Deinen Code.
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
AW: Spalten kopieren - nicht genügend Arbeitspeicher
26.08.2004 08:51:15
mein
Hallo Paulchen
gruss sarah
Diese Funktion wir mit noch ein paar anderen Fkten
von einer Loop-Fkt. gestartet:
beim Gleichsetzen der beiden Spalten kommt der Fehler!
Jetzt habe ich alternativ Zelle für Zelle übertragen!
' meine ersten Versuche
'blatt.Range(Cells(1, 1), Cells(90, 1)).Value = Worksheets("Vorbereitung").Range(Cells(1, i + 5), Cells(90, 1 + 5)).Value
'blatt.Columns(1) = Worksheets("Vorbereitung").Columns(i + 5)
' meine Alternative die klappt:
For sch = 1 To 90
blatt.Cells(sch, 1) = Worksheets("Vorbereitung").Cells(sch, i + 5)
Next
'usw.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige