Thema Datum  Von Nutzer Rating
Antwort
25.08.2016 13:09:24 Yannick
Solved
Blau Nicht genügend Speicher
 25.08.2016 18:01:54 Gast47801
Solved
26.08.2016 09:28:39 Yannick
Solved
26.08.2016 13:29:59 SJ
Solved
26.08.2016 13:38:52 Yannick
Solved
26.08.2016 13:55:49 SJ
Solved

Ansicht des Beitrags:
Von:
Gast47801		 Datum:
25.08.2016 18:01:54		 Views:
830		 Rating:
     
Antwort:
 Nein
Thema:
Nicht genügend Speicher

Hi Yannick,

mit dem "Holzweg" hattu vermutlich recht!

Versuche einmal den Code und schreibe wie hoch du kommst (z.B.        19            697144 )

'Option Explicit

Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Sub TestIt()
Dim myArr() As Variant
Dim x As Long, y As Long
Debug.Print GetMemUsage
For x = 1 To 2000000 Step 1 '0
   ReDim myArr(0 To 2000000, 0 To x)
   Debug.Print x, GetMemUsage
Next x
End Sub

Function GetMemUsage()
  
  ' Returns the current Excel.Application
  ' memory usage in MB
  
  Set objSWbemServices = GetObject("winmgmts:")
  GetMemUsage = objSWbemServices.Get( _
    "Win32_Process.Handle='" & _
    GetCurrentProcessId & "'").WorkingSetSize / 1024
    
  Set objSWbemServices = Nothing
  
End Function

LG

PS: ich verrate dir auch nicht mit welchem Windows-Betreibmichsystem, welcher VBA - Version und wieviel echtem RAM ich getestet habe ;-)

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.08.2016 13:09:24 Yannick
Solved
Blau Nicht genügend Speicher
 25.08.2016 18:01:54 Gast47801
Solved
26.08.2016 09:28:39 Yannick
Solved
26.08.2016 13:29:59 SJ
Solved
26.08.2016 13:38:52 Yannick
Solved
26.08.2016 13:55:49 SJ
Solved