ich habe ein kleines Makro verfasst bzw., das mir in eine neue Datei eine Auto-Open-Prozedur "eingibt". Dies läuft aber nur durch, wenn gleichzeitig der VBA-Editor geöffnet ist. Ansonsten gibt es eine Fehlermeldung mit Laufzeitfehler: '-21473..., Index ausserhalb ... Das Makro stoppt schon in der ersten Zeile, läuft aber durch, wenn man dann im VBA Fenster weiterlaufen lässt. Wo liegt mein Fehler???
Dies sind die Zeilen:
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.CodeName).CodeModule
.InsertLines 3, "Private Sub Workbook_Open()"
.InsertLines 4, " On Error GoTo errhandler"
.InsertLines 5, " ActiveSheet.EnableAutoFilter = True"
.InsertLines 6, " ActiveSheet.Protect contents:=True, userInterfaceOnly:=True"
.InsertLines 7, "Exit Sub"
.InsertLines 8, "errhandler:"
.InsertLines 9, "Exit Sub"
.InsertLines 10, "End Sub"
End With
Dieses Makro hat den Sinn, dass in der neuen Datei der Auto-Filter möglich sein soll trotz Blattschutz. Falls es noch eine andere Möglichkeit gibt ausser einer Auto-Open-Prozedur bin ich für Vorschläge sehr dankbar.
Gordon