Hallo liebe Excelgemeinde, hallo Franz und fcs,
diesen Code möchte ich aus einem andere Code per "Call entFerneCode" starten. leider bekomme ich es nicht gebacken.
Was mache ich falsch?
Sub entFerneCode(ByRef myWbk As Workbook)
Dim codeObject As Object
For Each codeObject In myWbk.VBProject.VBComponents
With codeObject
' Alle Module (Type 1), Forms (Code 2) und Klassenmodule (Code 3) löschen
If .Type >= 1 And .Type Select Case .Name
Case "Modulxyz", "Modul9"
'nicht löschen, genaue Groß-/Kleinschreibung der Namen beachten!
Case Else
'Löschen
myWbk.VBProject.VBComponents.Remove codeObject
End Select
ElseIf .Type = 100 Then
' Etwaigen Code in Tabellenblättern und DieseArbeitsmappe löschen
On Error Resume Next
.CodeModule.DeleteLines 1, .CodeModule.CountOfLines
On Error GoTo 0
End If
End With
Next