Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBA - Collection in Collection

Frage Entwicklung VB for Applications

Mitglied: woerny

woerny (Level 1) - Jetzt verbinden

13.05.2011 um 21:29 Uhr, 4717 Aufrufe

Hallo @ all,

ich habe in VBA eine Klasse erstellt, mit ein paar Variablen.
Die Werte fasse ich in einer Collection zusammen.
01.
Public Eintrag As New clsWinGDV 
02.
Public colEintrag As New Collection 
03.
'-------------------------------------------------------- 
04.
Public colEinheiten As New Collection 
05.
 
06.
Sub test() 
07.
 
08.
For i = 1 To 10 
09.
    Eintrag.Absender = "xxx" & i 
10.
    Eintrag.MailAdresse = "yyy" & i 
11.
    '------------------------- 
12.
      
13.
    For X = 1 To 5 
14.
            Eintrag.GespDatum = Date 
15.
            Eintrag.GespNummer = "123456" & Y 
16.
            colEinheiten.Add Eintrag 
17.
     Next X 
18.
 
19.
    colEintrag.Add Eintrag 
20.
Next i 
21.
 
22.
For X = 1 To colEintrag.Count 
23.
    Debug.Print Eintrag.Absender 
24.
    Debug.Print Eintrag.MailAdresse 
25.
    Debug.Print "---------------------" 
26.
    For Y = 1 To colEinheiten.Count 
27.
        Set Eintrag = colEinheiten(Y) 
28.
        Debug.Print Y & " " & Eintrag.GespNummer & " " & Eintrag.GespDatum 
29.
        'Stop 
30.
    Next Y 
31.
Next X 
32.
End Sub 
33.
 
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
01.
    'collection 1 
02.
    Private m_MailAdresse As String               ' Empfängeremailadresse 
03.
    Private m_EmpfängerName As String 
04.
    Private m_KostenGesamt As Currency      ' 
05.
    '---------------------------------------- 
06.
    'collection 2 
07.
    Private e_GespDauer As Integer          ' 
08.
    Private e_GesEinheiten As String        ' 
09.
    Private e_GespNummer As String          ' 
10.
    Private e_GespDatum As Date             ' 
11.
    Private e_GespUhrzeit As Date           ' 
12.
    Private e_KostenEinzelGesp As Currency  ' 
13.
 
14.
 
15.
'----------------------MailAdresse------------------ 
16.
Public Property Let MailAdresse(ByVal oMailAdresse As String) 
17.
    m_MailAdresse = oMailAdresse 
18.
End Property 
19.
 
20.
Public Property Get MailAdresse() As String 
21.
    MailAdresse = m_MailAdresse 
22.
End Property 
23.
 
24.
'----------------------Absender------------------ 
25.
Public Property Let Absender(ByVal oAbsender As String) 
26.
    m_Absender = oAbsender 
27.
End Property 
28.
 
29.
Public Property Get Absender() As String 
30.
    Absender = m_Absender 
31.
End Property 
32.
 
usw. usw.
Ähnliche Inhalte
VB for Applications
gelöst EXCEL VBA Zellen verbinden. MERGE (6)

Frage von Aximand zum Thema VB for Applications ...

VB for Applications
gelöst VBA Excel Skript - Hilfe! (1)

Frage von Compu2017 zum Thema VB for Applications ...

Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

VB for Applications
gelöst VBA Code Änderung Access 2010 (6)

Frage von Dr.Cornwallis zum Thema VB for Applications ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Windows Server

Exchange 2010 Active Directory und Windows Server 2016

(4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (52)

Frage von sabines zum Thema Internet ...

Netzwerke
LAN2LAN Verbindung sehr langsam flaschenhals gesucht (27)

Frage von PixL86 zum Thema Netzwerke ...

Router & Routing
PFsense - Netzverbindung steht, aber kein Internet vorhanden (24)

Frage von aschmid zum Thema Router & Routing ...

Windows Server
gelöst Windows 2016 Hyper-V und VHDS (19)

Frage von emeriks zum Thema Windows Server ...