ich hab ne frage zu meinem Code und hoffe Ihr könnt mir auch dabei weiterhelfen.
Der Code folgt unten, ich habe in aus einer Userform entnommen und wollte in Umbauen so das er die Buttons die er auf der Userform anlegt in einem ganz normalem Sheet anlegt.
Einen Button im Sheet anlegen geht mit diesem Befehl...
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=391.5, Top:=51, Width:=99, Height:=21). _
Select
deshalb habe ich es einfach in meinem jetzigen Code eingefügt und den alten Code ausgeklammert.
ich habe auch die anpassungen noch nicht vorgenommen wo und an welcher stelle die Buttons eingefügt werden weil mein Programm schon ziemlich früh abbricht und diesen Fehler Meldet:
"Laufzeitfehler 424" Objekt erforderlich"
ich weiß aber nicht was oder wie ich das jetzt lösen kann.
Würde mich sehr über Hilfe freuen.Vielen Dank Christian
Option Explicit
Dim aCommands(100) As New clsButton
Dim cb
Dim xh
Sub buttons()
Dim i As Integer
Dim mysheet
Dim poslinks As Integer
Dim cb As String
Dim obTemp As MSForms.CommandButton
Dim frmnew
i = 1
xh = 10
'Set frmnew = ThisWorkbook.VBProject.VBComponents("auswahl")
For Each mysheet In Worksheets
'Alter code auf Userform Set obTemp = Add("Forms.CommandButton.1", "cmd1", True) '"cmd" & 1, True)
'neu eingefügt
Set obTemp = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=391.5, Top:=51, Width:=99, Height:=21). _
Select
Exit Sub
obTemp.Width = 100
obTemp.Height = 17
obTemp.Left = 12
obTemp.Top = xh
obTemp.Font.Size = 7
obTemp.Caption = mysheet.Name
obTemp.ControlTipText = "Bitte klicken, dann Activiere ich Tabelle ->" & mysheet.Name
Set aCommands(i).DieCmds = obTemp
i = i + 1
xh = xh + 17
Next
End Sub