Hilfe (dringend!) notwendig bei autom. Codeänderun
08.09.2004 08:28:07
Felix
brauche dringend Hilfe bei einem Code der x-Dateien öffnet, nach einem Programmierfehler sucht und diesen herauslöscht.
Habe soweit schon alles fertig nur brauche ich Hilfe um im Code eines jeden Sheets nachzusehen ob sich dort vielleicht dieser Codeschnipsel versteckt haben könnte.
Für Antworten bin ich sehr dankbar.
Mit besten Grüßen
Felix
For iCounter = 1 To ActiveWorkbook.Sheets.Count
'-------------In der nächsten Zeile ist der Fehler.
'-------------Wie bezeichne ich diese Zeile richtig?
With ActiveWorkbook.VBProject.VBComponents(Sheets(iCounter)).CodeModule
For iCZCounter = 1 To .CountOfLines
If .Lines(iCZCounter, 1) Like "*jjjtjjtu*" Then
.ReplaceLine iCZCounter, ""
Exit For
End If
Next iCZCounter
End With
Next iCounter