MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.02.2018, 22:02   #1
Kinimod1984
Neuer Benutzer
Neuer Benutzer
Standard Sonstiges - 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
    
    Call add
    
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
Alt 13.02.2018, 11:06   #2
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Ist wohl ein Excel-VBA - Thema. Hier geht's weiter.

__________________

Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:29 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.