Makro mit Makro ändern
31.01.2016 17:00:10
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
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 Sub
Mit freundlichen Grüßen
Ulrich