Thema Datum  Von Nutzer Rating
Antwort
21.09.2017 11:47:18 Christopher
NotSolved
21.09.2017 12:46:46 Gast31439
NotSolved
21.09.2017 12:51:57 Christopher
NotSolved
Blau Klassenobjekte in UserForm aufrufen
 21.09.2017 13:40:44 Gast44691
NotSolved

Ansicht des Beitrags:
Von:
Gast44691		 Datum:
21.09.2017 13:40:44		 Views:
553		 Rating:
     
Antwort:
  Ja
Thema:
Klassenobjekte in UserForm aufrufen

Beispielhaft so:

clsTest (Klassenmodul):

Option Explicit

Private iNummer As Integer

Public Property Get Nummer() As Variant
    Nummer = iNummer
End Property

Public Property Let Nummer(ByVal vNewValue As Variant)
    If IsNumeric(vNewValue) Then
        iNummer = CInt(vNewValue)
    Else
        Err.Raise "1", "clsTest", "Nummerischer Wert erwartet"
    End If
End Property

aux (allgemeines Codemodul):

Option Explicit

Public colClasses As Collection

UserForm1 (Userform):

Option Explicit

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim cTest As clsTest
    Set colClasses = New Collection
    
    For i = 1 To 50
        Set cTest = New clsTest
        cTest.Nummer = i
        colClasses.Add cTest
    Next i
End Sub

Private Sub CommandButton2_Click()
    Dim i As Integer
    Dim cTest As clsTest
    
    For i = 1 To colClasses.Count
        Set cTest = colClasses.Item(i)
        Debug.Print cTest.Nummer
        Set cTest = Nothing
    Next i
End Sub

Es gibt natürlich noch weitere Möglichkeiten, jedoch denke ich, dass dies relativ einfach implementierbar ist.

Viele 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
21.09.2017 11:47:18 Christopher
NotSolved
21.09.2017 12:46:46 Gast31439
NotSolved
21.09.2017 12:51:57 Christopher
NotSolved
Blau Klassenobjekte in UserForm aufrufen
 21.09.2017 13:40:44 Gast44691
NotSolved