Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Klassen aufrufen

Betrifft: Klassen aufrufen von: Patrick
Geschrieben am: 24.08.2004 13:58:03

Hallo zusammen ,

Wie bekome ich es hin eine klassen zu definieren die mit 2 button gesteuert wird .
Der erste butten soll eine klassen funktion aufrufen die aus textfeld 1 und textfeld 2 jeweils die werte in eine objektvariable schreibt ! Button 2 soll dann eine klassen funktion zb mit dem namen "zusammenrechnenn" aufrufen ! Die funktion rechnet dann die beiden werte die zuvor in die varibalen gschriben worden sind zusammen und gbit sie aus zb in ein textfeld .

Kann mir das jemand machen ?? muss aber über eine Klassen laufen !!!

  


Betrifft: AW: Klassen aufrufen von: GraFri
Geschrieben am: 24.08.2004 17:16:16

Hallo

Wenn ich alles richtig verstanden habe dann:



'Userform mit dem Namen 'Form'
Option Explicit
Dim varButton(1)    As New clsCommandButton
Dim Wert(1)      As Single

Private Sub UserForm_Initialize()
    
'COMMANDBUTTON
    Set varButton(0).butGruppe = CommandButton1
    Set varButton(1).butGruppe = CommandButton2

End Sub

'----------------------------------------------------

'Klassenmodul mit dem Namen 'clsCommanButton'
Option Explicit

Public WithEvents butGruppe As MSForms.CommandButton


Private Sub butGruppe_Click()

    If butGruppe.Name = "CommandButton1" Then
        Call Modul1.Werte_in_Ojektvariable
    Else
        Call Modul1.Zusammenzählen
    End If

End Sub

'----------------------------------------------------

'Modul mit Namen 'Modul1'
Option Explicit

Public Wert(1)      As Single

Sub Werte_in_Ojektvariable()

    Wert(0) = Form.TextBox1.Value
    Wert(1) = Form.TextBox2.Value

End Sub

Sub Zusammenzählen()
    Form.TextBox.Value = Wert(0) + Wert(1)
End Sub


     Code eingefügt mit Syntaxhighlighter 2.5


Mit freundlichen Grüßen, GraFri


  


Betrifft: AW: Klassen aufrufen von: Patrick
Geschrieben am: 25.08.2004 15:23:34

Jo funktioniert alles bestens ! Vielen dank echt stark


 

Beiträge aus den Excel-Beispielen zum Thema "Klassen aufrufen"