Office: öffentliche Objektmodule

User · 17. Dezember 2006

Hi nochmal @all,

Ich habe einen eigenen Type definiert und wollte mehrere Instanzes dieses Typen in eine Collection werfen. Aber beim Kompilieren habe ich eine Fehlermeldung:

Fehler beim Kompilieren:

Nur benutzerdefinierte Typen, die in öffentlichen Objektmodulen definiert sind, können in den oder aus dem Typ Variant umgewandelt werden oder an eine zur Laufzeit auflösbare Funktion weitergegeben werden.

Nun stellt sich mir die Frage, wie kriege ich das Modul "öffentlich" ? Ich habe in Excel einfach ein neues Modul gemacht, geht das noch irgendwie anders?

Der Code sieht folgendermaßen aus:

Code:

Public Type Eintrag
SBC As String
Kapazität As Double
Termin As Date
End Type
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Public Function test1() As String
Dim Liste As Collection
Dim Einzeleintrag As Eintrag

Einzeleintrag.Kapazität = -1
Einzeleintrag.SBC = "1"
Einzeleintrag.Termin = "01.01.2007"

Liste.add Einzeleintrag
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank schonmal & Grüße,

H_Leder

:)

chris-kaiser · 19. Dezember 2006

hiho

Code:

Public Type Eintrag
SBC As String
Kapazität As Double
Termin As Date
End Type

Public Function test1() As String
Dim Liste As New Collection
Dim Einzeleintrag As Eintrag

Einzeleintrag.Kapazität = -1
Einzeleintrag.SBC = "1"
Einzeleintrag.Termin = "01.01.2007"

Liste.Add Einzeleintrag.Kapazität
Liste.Add Einzeleintrag.SBC
Liste.Add Einzeleintrag.Termin
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

meinst Du das?

rfaehrmann · 19. Dezember 2006

Hi Hendrik,

erstelle ein Klassenmodul mit dem Namen "cItem" (nur als Beispiel) mit folgendem Inhalt:
Code:

public SBC As String
public Kapazitaet As Double
public Termin As Date
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dann kannst Du in deiner Funktion im Modul über
Code:

dim oItem as cItem
dim ctnCol as Collection

Set ctnCol = New Collection

Set oItem = New cItem
With oItem
.SBC = ""
.Kapazitaet=""
.Termin=""
End With

ctnCol.Add oItem
Set oItem = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

eigentlich muesste man in der Klasse noch Property-Methoden (Get/Set) schreiben und dann auf die Eigenschaften zugreifen, aber so geht es auch.

Ich hoffe ich hab alles richtig formatiert, denn das ist mein erster Beitrag

Office: öffentliche Objektmodule

öffentliche Objektmodule

öffentliche Objektmodule

öffentliche Objektmodule - Similar Threads - öffentliche Objektmodule

Öffentlicher Ordner Kontakte aktualisieren

Öffentliche Ordner - Gelesen/Ungelesen Einstellung

Festlegen oder Ändern der Berechtigungen für einen öffentlichen Ordner

Teams Liveereignis als öffentlich konfigurieren

Öffentliche Besprechung in Microsoft Teams

Kanal in einem Team von privat auf öffentlich stellen

Auswahl privat/öffentlich in Teams nicht möglich