VBA - Collection in Collection
Hallo @ all,
ich habe in VBA eine Klasse erstellt, mit ein paar Variablen.
Die Werte fasse ich in einer Collection zusammen.
Mein Problem:
Ich habe eine x Anzahl von Werten in der colEintrag zusammengefasst.
Zu jedem Eintrag habe ich eine y Anzahl von Werten.
Jetzt wollte ich die colEinheiten einem Wert der colEintrag zuweisen - also Collection in der Collection.
Das funktioniert aber nicht.....
Könnt Ihr mir helfen?
Vielen Dank
Gruß
Werner
Ziel ist:
Absender1, MailAdresse1, .....
hat:
Gespräch1, GespNummer1
Gespräch2, GespNummer2
Gespräch_x, GespNummer_x
Absender2, MailAdresse2, .....
hat:
Gespräch1, GespNummer1
Gespräch2, GespNummer2
Gespräch_x, GespNummer_x
usw...
Aufbau der Klasse
usw. usw.
ich habe in VBA eine Klasse erstellt, mit ein paar Variablen.
Die Werte fasse ich in einer Collection zusammen.
Public Eintrag As New clsWinGDV
Public colEintrag As New Collection
'--------------------------------------------------------
Public colEinheiten As New Collection
Sub test()
For i = 1 To 10
Eintrag.Absender = "xxx" & i
Eintrag.MailAdresse = "yyy" & i
'-------------------------
For X = 1 To 5
Eintrag.GespDatum = Date
Eintrag.GespNummer = "123456" & Y
colEinheiten.Add Eintrag
Next X
colEintrag.Add Eintrag
Next i
For X = 1 To colEintrag.Count
Debug.Print Eintrag.Absender
Debug.Print Eintrag.MailAdresse
Debug.Print "---------------------"
For Y = 1 To colEinheiten.Count
Set Eintrag = colEinheiten(Y)
Debug.Print Y & " " & Eintrag.GespNummer & " " & Eintrag.GespDatum
'Stop
Next Y
Next X
End Sub
Mein Problem:
Ich habe eine x Anzahl von Werten in der colEintrag zusammengefasst.
Zu jedem Eintrag habe ich eine y Anzahl von Werten.
Jetzt wollte ich die colEinheiten einem Wert der colEintrag zuweisen - also Collection in der Collection.
Das funktioniert aber nicht.....
Könnt Ihr mir helfen?
Vielen Dank
Gruß
Werner
Ziel ist:
Absender1, MailAdresse1, .....
hat:
Gespräch1, GespNummer1
Gespräch2, GespNummer2
Gespräch_x, GespNummer_x
Absender2, MailAdresse2, .....
hat:
Gespräch1, GespNummer1
Gespräch2, GespNummer2
Gespräch_x, GespNummer_x
usw...
Aufbau der Klasse
'collection 1
Private m_MailAdresse As String ' Empfängeremailadresse
Private m_EmpfängerName As String
Private m_KostenGesamt As Currency '
'----------------------------------------
'collection 2
Private e_GespDauer As Integer '
Private e_GesEinheiten As String '
Private e_GespNummer As String '
Private e_GespDatum As Date '
Private e_GespUhrzeit As Date '
Private e_KostenEinzelGesp As Currency '
'----------------------MailAdresse------------------
Public Property Let MailAdresse(ByVal oMailAdresse As String)
m_MailAdresse = oMailAdresse
End Property
Public Property Get MailAdresse() As String
MailAdresse = m_MailAdresse
End Property
'----------------------Absender------------------
Public Property Let Absender(ByVal oAbsender As String)
m_Absender = oAbsender
End Property
Public Property Get Absender() As String
Absender = m_Absender
End Property
Please also mark the comments that contributed to the solution of the article
Content-Key: 166248
Url: https://administrator.de/contentid/166248
Printed on: April 25, 2024 at 22:04 o'clock