Button erstellen lassen
19.01.2006 12:12:33
David
ich habe einen Button, der auf Klick einen neuen Button generiert.
Code:
Private Sub CommandButton2_Click()
ActiveSheet.Buttons.Add(250, 250, 100, 22).Select
Selection.OnAction = "button"
End Sub
Der neu erstellte Button hat dann folgenden Code hinterlegt:
Sub button()
End Sub
Geht es dass der neue Button automatisch folgenden Code hinterlegt hat:
Sub Button1_click()
Application.Goto Reference:="XY"
ActiveWindow.ScrollRow = ActiveCell.Row
End Sub
Vielen Dank für euere Hilfe!
Grüße David