Option Explicit
' ************************************************************************************************
' Autor/en: http://www.online-vba.de - Marc Wershoven
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von www.online-vba.de!
' Original-Quelltext: www.online-vba.de/vba_laufzeit.php
' ************************************************************************************************

Sub MW_VBA_Zur_Laufzeit_Aendern()
   Dim i As Long, j As Long
    
     For i = 1 To Application.VBE.VBProjects.Count
        
         If Application.VBE.VBProjects.Item(i).Name = "MeinVBAProjekt" Then
            
             For j = 1 To Application.VBE.VBProjects.Item(i).VBComponents.Count
                
                 If Application.VBE.VBProjects.Item(i).VBComponents.Item(j).Name = "DieseArbeitsmappe" Then
                     With Application.VBE.VBProjects.Item(i).VBComponents.Item(j)
                         .CodeModule.InsertLines 141, "'Nur eine Kommentarzeile in Zeile 141 einfügen"
                         .CodeModule.DeleteLines 134, 1 'Zeile 134 wird gelöscht
                     End With
                 End If
                
             Next j
            
         End If
        
     Next i
End Sub