Hallo ins Forum.
unter Excel 2010 haben wir die in unserer Excel-Datei enthaltenen Makros automatisch mit folgendem Code gelöscht. Unter Excel 2016 funktioniert das nicht mehr. Leider ist der Programmierer nicht mehr bei uns beschäftigt und ich als Leie bekomme das nicht hin. Im WEB finde ich leider nichts. Kann mir jemand helfen, wie ich das Problem gelöst bekommen.
testent ist immer leer wenn das Programm an die unten aufgeführte Schleife kommt. Ich vermute es hat was mit "ThisWorkbook.VBProject.VBComponents.Count" zu tun
Danke im Voraus für Eure Hilfe
Gruß Olaf
' testent = ThisWorkbook.VBProject.VBComponents.Count
' For p = 1 To testent
' sName = ThisWorkbook.VBProject.VBComponents.item(p).name
'' If sName <> "Clear_Button" And sName <> "Print_SPIR" And sName <> "search" And sName <> "Details" And sName <> "SearchTag" And sName <> "Modul1" And sName <> "details2" And sName <> "UserForm3" Then
' If sName <> "PartNo" And sName <> "UserForm1" And sName <> "Details" And sName <> "Drucken" And sName <> "Ribbons_für_Kunden" Then
' On Error Resume Next
' With ThisWorkbook.VBProject.VBComponents
' .Remove .item(sName)
' If durch = sName Then
' Else
' p = p - 1
' durch = sName
' End If
' End With
' End If
' Next p
'
' 'Delete the lines in the main Arbeitsmappe
' Set WB = ActiveWorkbook
' With WB.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
' .DeleteLines 1, .CountOfLines
' End With
|