Thema Datum  Von Nutzer Rating
Antwort
Rot Makro mit Makro löschen Excel 2016
 27.09.2016 09:46:38 Olaf
Solved
02.10.2016 13:11:56 Nobody
Solved
04.10.2016 09:45:17 Gast14734
Solved

Ansicht des Beitrags:
Von:
Olaf		 Datum:
27.09.2016 09:46:38		 Views:
1247		 Rating:
     
Antwort:
 Nein
Thema:
Makro mit Makro löschen Excel 2016

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro mit Makro löschen Excel 2016
 27.09.2016 09:46:38 Olaf
Solved
02.10.2016 13:11:56 Nobody
Solved
04.10.2016 09:45:17 Gast14734
Solved