Fehler beim Button erstellen mit VBA
12.12.2003 11:49:22
Susanne
habe folgendes Problem:
Ich will einen Button von dem einen Tabellenbaltt in ein anderes Tabellenblatt einfügen und das der Button seine Funktion bei behält. (Er ruft eine Funktion auf)
Da das mit dem Kopieren nicht so geklappt hat, wollte den Button auf dem einem Blatt löschen und auf dem anderen neu erstellen.
Den Code dazu hab ich von den Forumbeispielen. Aber leider funktioniert es nicht bei mir.
Es kommt immer die Fehlermeldung "Objekt erforderlich"
Bin für jede Hilfe dankbar!!
Grüße Susi
Code:
Sub Button_Erstellen()
Dim VBA_Button As Button
Dim VBA_Code As String
VBA_Code = "
Sub cmdNew_Click" & vbLf
VBA_Code = VBA_Code & " Menue_Zeigen " & vbLf
VBA_Code = VBA_Code & " ActiveSheet.Buttons(Application.Caller).Delete" & _
"(""basMain"").CodeModul" & vbLf
VBA_Code = VBA_Code & " End Sub
"
Set VBA_Button = Buttons.Add(100, 100, 70, 20) <<- Hier erscheint die Meldung
With VBA_Button
.Caption = "Finanzmenü"
.OnAction = "cmdNew_Click"
End With
With ThisWorkbook.VBProject.VBComponents("basMain").CodeModule
.AddFromString VBA_Code
End With
End Sub