Thema Datum  Von Nutzer Rating
Antwort
25.02.2009 14:04:13 Oliver
NotSolved
26.02.2009 11:47:33 Holger
NotSolved
Rot Aw:Aw:Fehlermeldung "Too Many Local, Nonstatic Var
26.02.2009 12:02:17 Oliver
NotSolved
26.02.2009 13:57:33 Holger
NotSolved

Ansicht des Beitrags:
Von:
Oliver
Datum:
26.02.2009 12:02:17
Views:
880
Rating: Antwort:
  Ja
Thema:
Aw:Aw:Fehlermeldung "Too Many Local, Nonstatic Var
Danke Dir Holger,

das problem hat sich mittlerweile gelöst..Habe einfach in der Type definition auf eien Single-Variable zurückgegriffen...

Holger schrieb am 26.02.2009 11:47:33:

Hallo Oliver,
für Variablen stehen je Modul nur 64 KB zur Verfügung. Ohne Prüfung deines Makros vermute ich, dass du diese überschritten hast . Vielleicht kannst du den Prozess in mehrere Teile zerlegen oder einige Variable in anderen Modulen mit Public deklarieren.
Gruß
Holger



Oliver schrieb am 25.02.2009 14:04:13:

Hallo Leute,

ich möchte den Inhalt eines Sheets in ein (120x34)-Array einlesen und danach in einnn Binary File schreiben, siehe folgednen Quellcode:

Type Datensatz
RNumber(120, 34) As Double
End Type

Sub Binary_Write2()

Dim Satznummer As Integer
Dim DS1 As Datensatz
Dim z As Integer
Dim i As Integer
Dim j As Integer

' open binary file 1 with random access
Open "D:\random40000_131.dta" For Random As #1 Len = Len(DS1)

For z = 1 To 5
Calculate

' Reading into an Array
For i = 1 To 34
For j = 1 To 10
DS1.RNumber(j, i) = Sheets("simulation").Cells(j + 7, i + 1).Value

Next j
Next i

' Writing to output-file
Satznummer = z
Put #1, Satznummer, DS1 ' write record to file

Next z

Close #1 ' Datei schließen.

End Sub

Irgendwie macht dem Compiler die Type-Definition Probleme, dnen wenn ich das Array bis zu einer Grösse von (115x34) einrichte, funktioniert es. Ab (116x34) kommt die Fehlermeldung "Too Many Local, Nonstatic Variables"
Wie kann ich das Problem lösen?

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.02.2009 14:04:13 Oliver
NotSolved
26.02.2009 11:47:33 Holger
NotSolved
Rot Aw:Aw:Fehlermeldung "Too Many Local, Nonstatic Var
26.02.2009 12:02:17 Oliver
NotSolved
26.02.2009 13:57:33 Holger
NotSolved