OnAction variabel halten
31.07.2002 08:11:50
rolf
ich erstelle mittels einer For Schleife CommandButtons.
Was ist falsch an meiner OnAction Zuweisung, wenn ich hier
immer das Drucken Modul des aktiven Workbook ansprechen will?
Ich bekomme immer Laufzeitfehler 1004.
Sub ButtonMakroZuweisen()
Dim objBut As Object, i As Integer
For i = 1 To Sheets.Count
Sheets(i).Select
Set objBut = Sheets(i).Buttons.Add(90, 15, 150, 50)
objBut.Caption = "Drucken"
objBut.OnAction = ActiveWorkbook.Name & "!Drucken"
Next i
End Sub
Anzeige