Hallo!
Weiss jemand ob es eine möglichkeit gibt, einen Code selbst durch einen Code zu durchsuchen und teile zu ersetzen?
Also zum Beispiel in einem Sub nach der Zahl 13 zu suchen und diese mit 14 (oder einer fortlaufenden zahl) zu ersetzen?
Möchte Tabellenblätter kopieren die ein Macro enthalten welches dann aber angepasst werden muss.
Ev. gibts auch eine ganz andere möglichkeit?
Währe froh um eine antwort
Anias
habe bisher das hier mit Userform versucht, funktioniert aber nicht! debugg endet bei "For Each V In...."
Sub Zeichen_im_VBA_Code_ersetzen()
Dim m As Object, v As Object, VBACode As String
Dim SuchString As String, ErsatzString As String
SuchString = "Debug.Print" 'oder Textbox1.Value
ErsatzString = "MsgBox" 'oder Textbox2.Value
For Each v In ThisWorkbook.VBProject.VBComponents
If v.Name <> "UserForm1" Then
Set m = v.CodeModule
If m.CountOfLines > 0 Then
VBACode = m.Lines(1, m.CountOfLines)
VBACode = Replace(VBACode, SuchString, ErsatzString)
m.DeleteLines 1, m.CountOfLines
m.InsertLines 1, VBACode
End If
End If
Next v
End Sub |