Thema Datum  Von Nutzer Rating
Antwort
16.02.2009 20:36:21 be
NotSolved
Blau Aw:Collection "global"?
 18.02.2009 12:31:34 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
18.02.2009 12:31:34		 Views:
940		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Collection "global"?
Hallo be,
Ich gehe davon aus, dass du die CommandButtons in einer UserForm hast.
In einer Collection werden Objekte gesammelt. Deshalb brauchst du ein Klassenmodul mit einer Variablen (bei mir "Element") für die Instanzennamen. Lege deshalb ein Klassenmodul (wahrscheinlich Klasse1) an und füge in dessen Code
Public Element
ein.
Füge dann im Code deiner UserForm
Private col As New Collection 'oder Public col As New Collection in einem Modul
Private Sub CommandButton1_Click()
Dim Inst As New Klasse1 ‘oder wie dein Klassenmodul heißt
Inst.Element = "bla"
col.Add Item:=Inst
Set Inst = Nothing
Inst.Element = "blu"
col.Add Item:=Inst
Set Inst = Nothing
End Sub
Private Sub CommandButton2_Click()
For Each a In col
b = b & a.Element & vbCrLf
Next a
MsgBox b
End Sub
ein.
Mit CommandButton1 fügst du deiner Auflistung jeweils “bla” und “blu” zu, mit CommandButton2 wird eine Messagebox mit den vorhandenen Instanzennamen erzeugt.
Sieh auch in der VBA-Hilfe unter Collection-Objekt nach.
Ich hoffe, dir bei deinem Problem geholfen zu haben.
Gruß
Holger



be schrieb am 16.02.2009 20:36:21:

hallo habe eine frage... ich möchte eine collection über eine sub oder funktion deklarieren und mit werten füllen und diese danach im speicher weiter zur verfügung haben um sie in anderen subs verwenden zu können .. nur leider bekomme ich das nicht hin :/ weiss jemand rat?
(auf array kann ich auch zurückgreifen, möchte aber eine collection verwenden)

bisher bin ich so weit:

--------------------------------------------
Public col As Collection

Public Sub CommandButton1_Click()
Set col = New Collection
col.AddItem "bla", "blu"
End Sub


Private Sub CommandButton2_Click()
MsgBox col("blu")
End Sub
--------------------------------------------

liebe grüße!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.02.2009 20:36:21 be
NotSolved
Blau Aw:Collection "global"?
 18.02.2009 12:31:34 Holger
NotSolved