Sei es drum....
31.07.2012 22:05:58
Ramses
Hallo
'**************************************
'Start Code Sequenz
'Erstellen der Button
Sub CreateButtons()
'(C) Ramses
'Erstellt in den Sheets 2 bis 7
'Einen Button aus der Symbolleiste
'Formular in einer bestimmten Zelle
Dim i As Integer
For i = 2 To 7
'A1 ist dort wo der Button hin soll
AddButton2 i, "A1"
Next i
End Sub
Sub AddButton2(mySheet As Integer, tarC As String)
Dim butWks As Worksheet, myC As Range
Dim myButton As Object
Set butWks = Worksheets(mySheet)
Set myC = butWks.Range(tarC)
Application.ScreenUpdating = False
With butWks
Set myButton = .Buttons.Add(0, 0, 0, 0)
With myButton
'Eintragung der Bezugszelle
.Top = myC.Top + 1
.Left = myC.Left
.Height = myC.Height
.Width = myC.Width * 2
.Text = "Start Userform"
'Dieses Makro wird ausgelöst
.OnAction = "ShowMyUserform"
End With
End With
Application.ScreenUpdating = True
End Sub
'Das gehört in Modul
Sub ShowMyUserForm()
UserForm1.Show
End Sub
'Ende Code Sequenz
'**************************************
Hoffe das bringt Licht in deine Frage
Gruss Rainer