Makro abschalten
31.01.2016 13:28:42
Ulrich
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