VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: mistamacro	Datum: 26.08.2010 14:13:18	Views: 1814	Rating:	Antwort:
Thema: VBA Code durchsuchen
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen