Eigener Datentyp und ARRAY
23.04.2009 15:25:27
eres
Kann mir jemand einen Tipp geben wie ich Daten eines eigenen Datentyps in ein ARRAY schieben kann ?
Beispiel:
Option Explicit
Type Artikel
Bezeichnung As String
Preis As Currency
End Type
Dim DatenFeld(1 To 3) As Variant
Sub Macro()
Dim a As Artikel
a.Bezeichnung = "PC"
a.Preis = 333.5
DatenFeld(0) = a
End Sub
Im Beispiel erhalte ich in der Datenfeldzuweisung DatenFeld(0) = a die Fehlermeldung:
"Nur benutzerdefinierte Typen, die in öffentlichen Objektmodulen definiert wurden, können in den oder aus dem Typ Variant umgewandelt werden, oder an eine zur Laufzeit auflösbare Funktion weitergeleitet werden."
Hintergrund meiner Frage ist die Problemstellung, die hier diskutiert wird und wo von edhunter und Schmitti vorgeschlagen wird, Daten eines eigenen Datentyps in ein eindimensionales Array zu schieben.
Bin für jede Hilfe dankbar.
Gruß
erwin
http://www.digital-inn.de/visual-basic/12467-array-groesse.html