Excel Makro zum Überschreiben eines anderen Makros

Computer: Software & Programmierung Visual Basic
#1

Hi,
ich steh zur Zeit ziemlich an. Ich habe ein Excel Sheet mit einigen Makros erstellt die auch gut funktionieren, nur ist jetzt jemand auf einen sehr dummen Fehler in allen Files draufgekommen (eine Formel hat statt einem Plus ein Minus) und ich muss den Fehler ausbessern ohne, dass die bereits in den Sheet eingegebenen Daten überschrieben oder nochmal eingeben werden müssen.

Also ich hab eine Vorlage für mehrere User erstellt die auch schon verwendet wird und jetzt ist in der Vorlage ein Fehler aufgetaucht.

Ich dachte mir ich schreibe ein Makro, dass in der Vorlage bzw. in Files die einen bestimmten Namen haben (den gebe ich vor) ein Makro einfügt und den Fehler behebt, nur habe ich bisher nirgends einen Anhaltspunkt gefunden, wie ich das genau anstellen soll.

Ist das ganze überhaupt so möglich oder gibt es einen einfacheren/besseren Weg das umzusetzen?

lg Michael

#2

Ich dachte mir ich schreibe ein Makro, dass in der Vorlage
bzw. in Files die einen bestimmten Namen haben (den gebe ich
vor) ein Makro einfügt und den Fehler behebt, nur habe ich
bisher nirgends einen Anhaltspunkt gefunden, wie ich das genau
anstellen soll.

Hallo Michael,

hilft dir das weiter:

Option Explicit
'
Sub Ersetzen()
Dim Zei As Long
With ThisWorkbook.VBProject.VBComponents("Codezubearbeiten").CodeModule
 For Zei = 1 To .CountOfLines
 If .Lines(Zei, 1) = "alte Codezeile" Then
 .ReplaceLine Zei, "neue Codezeile"
 Exit For
 End If
 Next Zei
End With
End Sub

Gruß
Reinhard