userform und Commandbuttons anlegen mit Code
22.06.2005 10:14:37
chris
ich habe mal ne rage zu Userforms und Commandbuttons.
Da mir hier schon oft geholfen wurde bin cih sicher ihr könnt mir auch hier weiterhelfen.
ich habe eine bestehende Userform, in dieser userform füge ich Per (code unten)
Commandbuttons ein.Von Jedem Sheet einen Button.
Jetzt meine frage ich möchte gerne gleich nachdem ich den Button angelegt habe eine Code zu dem Button schreiben. Und zwar das wenn ich den Button Klicke automatisch das sheet selectiertz wird wie der Button heißt.
Also so in etwa:
Private Sub CommandButtonxyz_Click()
cb = CommandButton10.Caption
Worksheets(cb).Activate
End Sub
-- hier der Code mit dem ich die Commandbuttons einfüge.
Option Explicit
Sub Neuecommandbuttons_userform()
Dim frmNew
Dim cmdbutton As MSForms.CommandButton
Dim intTop As Integer
Dim mysheet
On Error Resume Next
Set frmNew = ThisWorkbook.VBProject.VBComponents("auswahl")
intTop = 1
For Each mysheet In ActiveWorkbook.Worksheets
Set cmdbutton = frmNew.designer.Controls.Add("forms.CommandButton.1")
With cmdbutton
.Top = intTop + 10
.Left = 5
.Width = 100
.Height = 20
.Caption = mysheet.Name
.Name = mysheet.Name
End With
intTop = intTop + 20
Next
With frmNew
'.Properties("Width") = 320
.Properties("Height") = intTop + 45
End With
' VBA.UserForms.Add(frmNew.Name).Show
End Sub
Anzeige