Code löschen
25.02.2004 12:54:56
Andi
vor einigen Wochen habe ich hier im Forum von Josef Ehrensberger folgenden Code bekommen:
Sub Loeschen()
Dim WB As Workbook
Set WB = ActiveWorkbook
With WB.VBProject.VBComponents("Tabelle1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
damit kann man per VBA einen bestimmten Teil des Codes löschen; dieser Teil wird über die Zeilennummern festgelegt.
Nun kommt es ja mitunter vor, dass man am Code was verändert, und dann müsste man diese Zeilennummern wieder neu abzählen. Da ich in meinem Workbook mehrere Code-Teile vor beim ersten speichern löschen möchte, wäre das relativ umständlich; deshalb meine Frage:
kann man den zu löschenden Teil auch über so etwas wie Sprungmarken festlegen? In etwa so:
With WB.VBProject.VBComponents("Tabelle1").CodeModule
.DeleteLines [from marke1 to marke2]
'Code
marke1:
'zu löschender Code
marke2:
'Code
Ist sowas möglich?
Schönen Gruß,
Andi