Einzelnen Beitrag anzeigen
Alt 13.02.2018, 06:09   #1
Kinimod1984
Neuer Benutzer
Neuer Benutzer
Standard Klassenereignis aus Modul aufrufen

Liebes Forum

Hab mal wieder eine ziemlich banale Frage, jedoch nach Stunden und Tagen der nicht erfolggekrönten Suche keine Antworten gefunden.

Ich erstelle in einem Frame ein paar Labels:

Klassenmodul:

Code:

Option Explicit

Public WithEvents Label As MSForms.Label

Sub Label_Click()
    
    Dim ctl As Control
    
    For Each ctl In Userform1.Frame1.Controls
        If TypeName(ctl) = "Label" Then
            ctl.ForeColor = vbBlack
            ctl.BackColor = vbWhite
        End If
    Next ctl
    
    Range("A1").Value = Label.Caption
    Label.BackColor = vbBlack
    Label.ForeColor = vbWhite
    
End Sub

Sub add()

    If Label.Caption = "Maestro" Then
        Worksheets("Tabelle1").Range("J2").Value = "Hello"
    End If

End Sub
Ein Modul:

Code:

Option Explicit
Public cLabel() As New clsLabel
Userform-Prozedur (Initialisierung):

Code:

Private Sub UserForm_Initialize()

Dim LB As Control
Dim LabelCount1 As Integer
Dim i As Long
Dim t As Long
Dim ALetzte As Long
ALetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
t = 0
For i = 8 To ALetzte
    Set LB = Userform1.Frame1.add("Forms.Label.1", Range("A" & i).Value, True)
    With LB
        .Top = t
        .Left = 0
        .Width = 130
        .Caption = Range("A" & i).Value
        .ForeColor = Range("A" & i).Font.Color = vbBlack
        .Font.Size = 12
    End With
    LabelCount1 = LabelCount1 + 1
    ReDim Preserve cLabel(1 To LabelCount1)
    Set cLabel(LabelCount1).Label = LB
t = t + 18
Next i
Nun zur eigentlichen Frage:

Gerne möchte ich mittels einem cmd auf der UF die "add"-Prozedur im Klassenmodul aufrufen.

Mit:

Code:

Private Sub CommandButton2_Click()
 
Call add

End Sub
will es natürlich nicht gehen - hat vielleicht jemand eine Idee? Vielen Dank bereits im Voraus!
Kinimod1984 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten