Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeile in einem Code-Modul austauschen

Gruppe

Prozedur

Problem

Wie kann ich eine Zeile in einem Code-Modul während der Laufzeit austauschen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: Tabelle1

Private Sub cmdCodeAustauschen_Click()
  Call ModulZeileTauschen
End Sub

StandardModule: basMain

Sub ModulZeileTauschen()
   Dim iCounter As Integer
   Call Meldung
   With ThisWorkbook.VBProject.VBComponents("basMain").CodeModule
      For iCounter = 1 To .CountOfLines
         If .Lines(iCounter, 1) = "  MsgBox ""Austauschen!""" Then
            .ReplaceLine iCounter, "  MsgBox ""Ausgetauscht!"""
            Exit Sub
         End If
      Next iCounter
  End With
  MsgBox "Der Code wurde ausgetauscht!"
End Sub

Sub Meldung()
  MsgBox "Austauschen!"
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen VBE und Prozedur