Makro beim Öffnen erstellen, wenn......
01.01.2004 03:57:36
Jonathan
ich möchte ein Makro erstellen lassen (automatisch beim Öffnen), wenn Datum über 01.01.2005 ist. Dafür habe ich folgenden Code geschrieben:
Sub Test()
If Date > DateValue("01.01.2005") Then _
ThisWorkbook.Sheets("Haupt").Buttons.Add(15, 260.25, 109.5, 19.5).Select
Selection.OnAction = "Makroname"
ActiveSheet.Shapes("Button 11").Select
Selection.Characters.Text = "Key eingeben"
With Selection.Characters(Start:=1, Length:=12).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("D14").Select
End Sub
Nun kommt beim Öffnen immer die Meldung, dass die Eigenschaft von "Selection on Action" nicht unterstützt wird. WEnn ich diesen Befehl lösche, kommt die Meldung, dass das Objekt nicht gefunden wurde, obwohl es ja gar nicht erstellt werden sollte...........
Wie würde der Code richtig lauten?
Danke schon mal!!!
Ein frohes neues JAhr!!!!!!!!!!!!!
MfG