With Workbooks(dateiname).VBProject
09.05.2008 10:37:30
Peter
ich hätte als VBA-Neuling mal eine Frage wie ich in obigem Code den Dateiname variabel gestalten kann.
Ziel ist es den VBA Code anhand dieses Codes (auch aus dem Internet :) ) aus einer anderen Mappe zu löschen. Der Name dieser Mappe variiert jedoch leider.
Dim objVBComponents As Object
With Workbooks(dateiname).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, Carts
With objVBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
Vielen Dank schonmal.