mit VBA Code löschen, ABER...
20.02.2008 18:32:00
Thomas
mit nachstehenden Code von Nepumuk aus dem Archiv, lösche ich problemlos sämtliche VBA Zeilen im gesamten Programm. So weit so gut.
Sub alle_Makros_loeschen()
Dim objVBComponents As Object
With ThisWorkbook.VBProject
For Each objVBComponents In .VBComponents
Select Case objVBComponents.Type
Case 1, 2, 3 'Module, Klasssenmodule, Userforms
.VBComponents.Remove .VBComponents(objVBComponents.Name)
Case 100 'Workbook, Sheets
With objVBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
End Sub
Was aber muss ich bitte ändern, wenn ich in DieseArbeitsmappe(Projekt) nur ganz bestimmte Zeilen löschen möchte und nicht alle, nämlich:
Z7 bis Z20,
Z33 bis Z 110 und
Z112 bis 140
Wer kann mir bitte helfen den o.a. Code anzupassen.
Danke Gruß Thomas