Habe folgende funktionierendes Makro:
Sub x()
Dim vb As Object, lngCounter As Long
lngCounter = 0
Workbooks.Open "C:\Users\Peter\Desktop\Mappe1.xlsm"
For Each vb In ActiveWorkbook.VBProject.VBComponents
lngCounter = lngCounter + ChangeCode(vb.codemodule, "Tag", "Nacht")
Next
ActiveWorkbook.Close True
MsgBox lngCounter, , "Änderungen"
End Sub
Benötige jedoch die Hilfe, dass statt "Tag" Inputbox und statt "Nacht" Inputbox besteht.Danke für Eure Hilfe
Gruss Peter