Office: klickereignis eines dynamischen Button per vba auslösen

Hallo,
habe einen dynamisch erzeugten Button + Klasse, dies funktioniert, jetzt muß ich aber das Klickereignis dieses Button per VBA auslösen. wie kann ich diesen jetzt ansprechen, in der Objektliste der Userform erscheint er ja nicht.

Gruß Frodo

 

Hallo Frodo

ich kann es nur an meiner Datei testen, da ich nicht auf fremde Rechner schaue.

Code:

Option Explicit

Private Sub CommandButton1_Click()
    CommandButton2_Click
End Sub

Private Sub CommandButton2_Click()
    MsgBox 1
End Sub

Gruß Hajo

 

Hallo Hajo,
vielleicht hilft das was ich habe

in der Userform

Private Sub UserForm_Initialize()
Dim objButton As MSForms.CommandButton
Dim objKlasse As cls_Buttons

Set colButtons = New Collection

Set objButton = Me.Controls.Add( _
"Forms.CommandButton.1", _
"cmdSchliessen", _
True)

With objButton
.Left = Me.Width + 320
.Top = Me.Height + 1903
.Width = 80
.Height = 25
.Caption = "Beenden"
.BackColor = RGB(255, 255, 255)
End With
Me.Tag = "Aktiv"
Me.DatenAnzeigen
Set objKlasse = New cls_Buttons

objKlasse.Initialisieren objButton, Me

colButtons.Add objKlasse


NamenLaden
ElementeLaden
End Sub


in der Klasse

Option Explicit
Private WithEvents mButton As MSForms.CommandButton
Private mUserForm As Object

Public Sub Initialisieren( _
ByVal objButton As MSForms.CommandButton, _
ByVal objUserForm As Object)

Set mButton = objButton
Set mUserForm = objUserForm
MsgBox mUserForm.Tag
End Sub

Private Sub mButton_Click()

Unload mUserForm

End Sub
Private Sub Kreuz()
If mUserForm.Tag = "Schliessen" Then
Unload mUserForm
End If
End Sub

Mit folgendem fange ich das Schließkreuz ab

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
' Prüfen, ob der Schließbefehl vom Schließenkreuz (vbFormControlMenu) kommt
If CloseMode = vbFormControlMenu Then
' Schließen abbrechen
Cancel = True
Me.Tag = "Schliessen"
MsgBox "Bitte nutzen Sie den Button zum Schließen.", vbInformation, "Hinweis"

End If

Ende
End Sub
Private Sub Ende()

Me.ScrollTop = Me.ScrollHeight
End Sub

Das Problem ist, wird die Userform über das Kreuz entladen, wird die Klasse nicht entladen. Dies gibt ein Problem wenn bei erneutem Aufruf der Userform in einem Auswahlmenue die Caption abgefragt werden soll.

Gruß Frodo

 

ich baue keine Datei nach. Ein Nachbau sieht anders aus als das Original.
Ich hab das Problem schon in der Tabnelle nachgebaut.
Viewlleicht sollte die Datei verlinkt werden?

Gruß Hajo

 

Habe auf die Schnelle eine Kopie gemacht.
Hoffe das passt.

Gruß Frodo

 

ich kann Dir leider nicht helfen. Ich konnte die Userform mit 2 Schaltern nicht finden.
Vielleicht solltest Du schreiben welche es ist? Vielleicht habe ich was übersehen?
Du hast meinen Code schon in der Userform getestet? Der sollte eigentlich gehen.

Gruß Hajo

 

Hajo, du hast nichts übersehen, es gibt keine Form mit statischen Button, dein Beispiel gilt für statische Button, bei mir ist er dynamisch erstellt.
Wenn du im Editor in deinem Beispiel die Form aufrufst und dann Code anzeigen wählst, dann siehst du oben in der Auswahl außer der Userform auch die beiden Button. Machst du das mit einer meiner Formen, steht dort nur die Userform, obwohl ja der Button vorhanden ist. In meinem Fall steht auch das was der Button machen soll in der Klasse.

Gruß Frodo

 

das habe ich überlesen. Entschuldigung.
Bei Code per VBA schreiben bin ich nicht der Fachmann.
Aber für andere Antworter solltest Du schreiben welche UserForm.

Gruß Hajo

 

Unabhängig davon, sollte eine so etwas nicht gemacht werden - ist keine "saubere" Programmierung. Rufe im Click_Event
eine Prozedur auf, welche du auch von anderer Stelle aufrufen kannst.
Klassen werden übrigens im UF Terminate- oder QueryClose Event aufgeräumt und sollten sich auch nicht selbst terminieren.

Knobbi38