OpenOffice.info

Sub RedimMyTypeArray(myArray, newDimension)
	Dim Dummy(newDimension) as New PunkteType
	myArray = Dummy
End Sub

sub PZ1berechnen
[...]
PunkteAnz = lst.getItemCount() + 4
RedimMyTypeArray(Punkte,PunkteAnz)
[...]
end sub

Aloha

[quote="Bergkaffee"]Wie würde ich erreichen, dass das Array geleert wird?[/quote]
Meines Wissens nach nur durch zunutze machen der ByReference Aufrufe mit einer extra Prozedur ala
[code]Sub RedimMyTypeArray(myArray, newDimension)
Dim Dummy(newDimension) as New PunkteType
myArray = Dummy
End Sub[/code]
und Verwendung ala
[code]sub PZ1berechnen
[...]
PunkteAnz = lst.getItemCount() + 4
RedimMyTypeArray(Punkte,PunkteAnz)
[...]
end sub[/code]

Ich habe allerdings selber nur ganz am Anfang, als ich das erste Mal über die User Defined Types gestolpert bin, ein wenig damit herumgespielt, in der praktischen Arbeit habe ich die nie verwendet. Sehr wahrscheinlich also, dass es da auch andere / bessere Wege für gibt.

Ah, sorry, da ist mir ein Fehler unterlaufen. Daten bleiben erhalten.
Wie würde ich erreichen, dass das Array geleert wird?

Aloha

[quote="Bergkaffee"]Was ich jetzt nicht verstehe ist, dass ich Preserve bei Arrays immer dazu nutze (und ich habe gedacht, dies ist auch der Sinn) damit die Daten im Array erhalten bleiben.[/quote]
Das ist normalerweise der Sinn, ja.
[quote="Bergkaffee"]Warum bewirkt es dann bei Typen, dass das Array geleert wird?[/quote]
Bei mir wird das Array nicht geleert, sondern (wie gewünscht?) nur neu dimensioniert, vorhandene Einträge bleiben erhalten.

Vielen Dank, jetzt gibt es kein Problem mehr. Die Public-deklaration geschieht bereits am Anfang. Mit dem Zusatz Preserve funktioniert es jetzt. Was ich jetzt nicht verstehe ist, dass ich Preserve bei Arrays immer dazu nutze (und ich habe gedacht, dies ist auch der Sinn) damit die Daten im Array erhalten bleiben. Warum bewirkt es dann bei Typen, dass das Array geleert wird?

redim Preserve Punkte(PunkteAnz) as PunkteType

Aloha

Bei User Defined Types benötigt es dazu das Stichwort "Preserve", also

[code]redim Preserve Punkte(PunkteAnz) as PunkteType[/code]

Hallo Bergkaffee,

was hälst Du denn davon wenn Du die Public deklaration ganz am anfang des Moduls und zwar in den ersten Zeilen oberhalb der ersten Sub, anstatt mittendrin ausführst?

Ich weiß jetzt aber nicht auf die schnelle ob das dein Problem löst, da ungetestet.


Gruß
balu

Type PunkteType
	row  as Long
	Pnr  as Variant
	dRW  as Double
	dHW	 as Double
	cluster()
End Type

Public Punkte() as PunkteType

sub PZ1berechnen
[...]
PunkteAnz = lst.getItemCount() + 4
redim Punkte(PunkteAnz) as PunkteType
[...]
end sub

Hallo zusammen.

Ich möchte ein Array öffentlich deklarieren, damit ich dessen Daten in mehreren Makros eines Moduls verwenden kann.
Das Array ist allerdings auch als Struktur deklariert. Nun finde ich keine Möglichkeit dieses Array in einem Makro zu redimensionieren.

[code]Type PunkteType
row as Long
Pnr as Variant
dRW as Double
dHW as Double
cluster()
End Type

Public Punkte() as PunkteType

sub PZ1berechnen
[...]
PunkteAnz = lst.getItemCount() + 4
redim Punkte(PunkteAnz) as PunkteType
[...]
end sub
[/code]

Kann mir jemand weiterhelfen wie ich das umsetzen kann bzw. wo mein Fehler liegt.