Hallo VBA-Profis,
ich arbeite in mehreren in identischen Dateien mit UserForms und Modulen. Um alle Dateien immer wieder schnell abzudaten, habe ich ein Makro geschrieben, mit dem UserForms und Module automatisch ausgetauscht werden. Leider funktioniert das Ganze jedoch nicht zuverlässig und obwohl die Komponenten richtig bezeichnet sind, klappt das "Remove" nicht immer.
Hätte vielleicht jemand eine Idee, was bei dem Remove im folgenden Code nicht funktioniert?
On Error Resume Next
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("M1_Fachbereiche_aktivieren")
.VBComponents.Remove .VBComponents("M2_Problem_einfuegen")
.VBComponents.Remove .VBComponents("M3_Zeile_uebersetzen")
.VBComponents.Remove .VBComponents("UserForm1")
.VBComponents.Remove .VBComponents("UserForm2")
End With
Wäre mir eine Riesenhilfe, wenn jemand eine Idee hätte, was ich da verbessern sollte.
Vielen Dank!
Grüße,
Jo