Command Button in UserForm ausführen
03.02.2006 14:54:44
Albert
Bisher haben mir die Forumbeiträge immer weitergeholfen. Doch nun stehe ich an.
Ich hoffe jemand kann mir helfen.
Habe eine Userform namens AMappen erstellt. Beim Aufruf der Userform werden soviele CommandButtons erstellt wie es offene Arbeitsmappen gibt.
Doch nun weiss ich nicht wie ich die einzelnen CommandButtons per Click anspreche.
Auf den CommanButtons steht der Dateiname. Und wenn ich auf den jeweiligen CommandButton drücke soll diejenige Arbeitsmappe aktiviert werden.
Hier das Makro zur erstellung der CommandButtons:
Option Explicit
Private Sub UserForm_Initialize()
Dim ctrBut As MSForms.CommandButton
Dim WKP As Byte
Dim TI As Integer
TI = 5
For WKP = 1 To Workbooks.Count
Set ctrBut = Me.Controls.Add("Forms.CommandButton.1")
With ctrBut
.Left = 65 * 0.1
.Top = TI
.Width = 225
.Height = 20
.Caption = Workbooks(WKP).Name
.Font.Bold = True
.ForeColor = 127
End With
TI = TI + 23
Next WKP
AMappen.Height = TI + 25 'Länge AMapppen Userform
End Sub
Anzeige