Code löschen
08.09.2005 16:34:13
Lutz
ich will einen Code nur einmal beim Starten der .xlt laufen lassen.
Das erfolgt über Workbook_open()
Leider startet dann der Code auch, nachdem die .xls nach erfolgreichem Speichern geöffnet wird.
Nun habe ich im Archiv gestöbert und bin auf Tipps zu Löschen von Code gestossen:
Der folgende Code steht bei meiner Vorlage in "DieseArbeitsmappe"
Option Explicit
_________________________________
Private Sub Workbook_Open()
Call Speichern
Call Del
ActiveWorkbook.Save
End Sub
_________________________________
Private Sub Del()
Dim wb As Variant
wb = ActiveWorkbook.Name
Workbooks(wb).VBProject.VBComponents(wb).CodeModule.DeleteLines 1, 8
End Sub
_________________________________
Die Funktion Del() zum Zeilenlöschen des oberen Codes funzt einfach nicht, sie läuft immer in eine Fehlermeldung rein.
Habs auch schon so versucht umzustellen:
Workbooks("DieseArbeitsmappe").VBProject.VBComponents("DieseArbeitsmappe").CodeModule.DeleteLines 1, 8
Ihr habt bestimmt die Lösung.
Grüsse Lutz