Replace Line in VBAcode

.. das wohl mächtigste Werkzeug in Bill Gates' Büro-Sippe. Ob reine Formeln, PowerQuery oder VBA. Hier bleiben kaum Wünsche unerfüllt.
Benutzeravatar
d'r Bastler
Beiträge: 832
Registriert: 29. Aug 2022, 13:20
Hat sich bedankt: 224 Mal
Danksagung erhalten: 119 Mal

Replace Line in VBAcode

#1

Beitrag von d'r Bastler »

Moin!
als Spickzettel für's hardcore coding:

Code: Alles auswählen

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

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste