CommandBars mit Formel erstellen
04.01.2003 15:44:24
Andi.4
ich möchte mit einer Formel in einem Tabellenblatt ein CmdBar erzeugen:
Das funktioniert aber nicht. Hat jemand einen Plan wie es gehen könnte?
Vielen Dank,
Gruß
Andi.4
WENN(A1="";"";makrostart())
Function MakroStart()
Application.Volatile
MakroStart_Makro
End Function
Sub MakroStart_Makro()
Application.Run "'Neu Microsoft Excel-Arbeitsblatt.xls'!Makro1"
End Sub
Sub Makro1()
Makro1 Makro
Application.CommandBars("Forms").Visible = True
ActiveSheet.CheckBoxes.Add(245.25, 256.5, 54.75, 17.25).Select
Application.CommandBars("Forms").Visible = False
Range("A3").Select
End Sub