Hallo,
ich bitte um eure Hilfe.
habe ein riesengroßes Makro, welches im Verlauf weitere Makros ausführt. Ich poste nur das kleine Makro, in dem der Fehler auftritt, da der Fehler auch dann auftritt, wenn ich dieses Makro alleine ausführe.
Die Range wird noch kopiert, aber dann sagt er mir, nicht genügend Speicher, Laufzeitfehler 7.
Das einzige was ich seit es das letzte mal funktioniert hat, geändert habe ist das Zellformat in den Spalten C, E, I und K von Datum auf TT.MM.JJJJ;-0;;
aber selbst das zurückändern auf TT.MM.JJJJ hat das Ganze nicht wieder zum Laufen gebracht.
Ich meine, ich habe 720 GB freien Festplattenspeicher, 16 GB RAM, ich kann mir kaum vorstellen, das das nicht reicht um in einer 2 MB großen Datei eine Abfrage zu aktualisieren.
Die Abfrage lässt sich übrigens von Hand ohne Makro problemlos aktualisieren.
Beim Debuggen und beim Einzelschrittausführen wird die Zeile Range("G2" usw. gelb markiert, wenn der Fehler auftritt.
Weiß jemand einen Rat? Danke
Christian
Private Sub Sicherungskopie()
With Worksheets("Leute")
Letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Columns("G:L").ClearContents
.Range("G2:K" & Letzte) = .Range("A2:E" & Letzte).Value
ActiveWorkbook.Connections("Abfrage - Leute").Refresh
With .Range("L2:L" & Letzte)
.FormulaLocal = "=XVERWEIS(H2;B:B;E:E;"""";0;1)=K2"
.Formula = .Value2
End With
End With
End Sub