Hallo zusammen!
Warum kann ich diese beiden Makros nicht per Button
starten?
Das Excel-Fenster wird grau.
Felermeldung: „Fenster schließen“
Die Datei ist dann nur noch „Schreibgeschützt“ zu öffnen.
Wenn ich die Makros mit „F5“ starte laufen sie ohne Probleme.
Woran liegt das?
Sub ein
With ActiveWorkbook.VBProject.VBComponents _
("Tabelle12").CodeModule
.deleteLines 1, 1
.InsertLines 1, "Private Sub Worksheet_Calculate()"
End With
Sheets("CDAX").Range("B1").Interior.Color = vbGreen
End
Sub aus
With ActiveWorkbook.VBProject.VBComponents _
("Tabelle12").CodeModule
.deleteLines 1, 1
.InsertLines 1, "Private Sub gespert()"
End With
Sheets("CDAX").Range("B1").Interior.Color = vbRed
End
Mit freundlichen Grüßen
Ulrich