Option Explicit
Sub ReplaceLine()
Dim vbComp As VBIDE.VBComponent, vbCode As VBIDE.CodeModule
Dim iLine As Integer, sCode As String
Set vbComp = ThisWorkbook.VBProject.VBComponents("Modul1")
Set vbCode = vbComp.CodeModule
iLine = 13
sCode = "MsgBox ""Geht doch!"""
vbCode.ReplaceLine iLine, sCode
End Sub
schreibt 'ne MsgBox in Modul1 Zeile 13. Voraussetzung ist der Verweis auf die MS VBA Extensibility 5.3
Viel Spaß!
d'r Bastler von den VBAsteleien.de Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365