Makro automatisch starten
05.11.2003 14:56:58
tina
ich habe von Access eine Tabelle in Excel exportiert. Nun sollte gleich automatisch ein Befelhlschaltfläche ins Arbeitsblatt eingefügt werden, bei deren Klick dann ein Diagramm aus den Tabellenwerten erstellt wird.
Mein Code sieht folgendermaßen aus:
Private Sub Workbook_Open()
ActiveSheet.Buttons.Add(129, 245.25, 127.5, 44.25).Select
Selection.OnAction = "PERSONL.XLS!CreateAndDeleate"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Diagramm anzeigen"
With Selection.Characters(Start:=1, Length:=17).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Range("B25").Select
End Sub
Jetzt krieg ich aber folgende Fehlermeldung:
"Objektvariable oder With-Blockvariable nicht festgelegt"
Weiß jemand woran das liegen könnte?
Gruß
Tina