title image


Smiley VBA: Per Makro den Code eines Makros ändern
Hallo birki,



meinst Du das:





'Ersetzt im Modul2 der aktiven Mappe die Zeile

'Windows("Formulare").Activate

'durch

'Windows("Formulare.xls").Activate

Sub ZeileInCodeErsetzen()

Dim strSuchtext As String, strNeuertext As String

Dim intI As Integer

'Nach dieser Zeile wird gesucht:

strSuchtext = "Windows(" & """" & "Formulare" & """" & ").Activate"

'... und durch diese Zeile ersetzt:

strNeuertext = "Windows(" & """" & "Formulare.xls" & """" & ").Activate"

'Jede Zeile in Modul2 wird durchsucht:

With ActiveWorkbook.VBProject.VBComponents("Modul2").CodeModule

    For intI = 1 To .CountOfLines

        'Wenn die Zeile gleich dem Suchtext ist, ...

        If .Lines(intI, 1) = strSuchtext Then

            '... Zeile löschen:

            .DeleteLines intI

            '... neue Zeile einfügen:

            .InsertLines intI, strNeuertext

        End If

    Next

End With

End Sub



Sub Test()

Windows("Formulare").Activate

End Sub



Sub NochEinTest()

Windows("Formulare").Activate

End Sub



Sub UndNochEinTest()

Windows("Formulare.xls").Activate

End Sub





Viele Grüße und einen guten Rutsch



Jörg


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: