ich will einen im ersten Tabellenblatt hinterlegten Code (Beispiel: Doppelklick auf die Zelle A1 --> springt auf das Tabellenblatt 1) automatisch in alle Tabellenblätter kopieren. Dazu verwende ich den folgenden Code:
Sub CopyCodeInTabellenblatt(BlattName As String)
Dim vbC As Object
Dim iRow As Integer
Dim sCode As String
On Error GoTo ERRORHANDLER
With ThisWorkbook.VBProject.VBComponents("Tabelle1").codemodule
sCode = .Lines(1, .CountOfLines)
End With
Set vbC = ThisWorkbook.VBProject.VBComponents(BlattName)
vbC.codemodule.deletelines 1, vbC.codemodule.CountOfLines
vbC.codemodule.AddFromString sCode
Exit Sub
ERRORHANDLER:
MsgBox "Das Makro konnte nicht kopiert werden!"
End Sub
Leider führt diser Code beim MCAfee Virenscanner zur Meldung dass der Virus X97M/Generic gefunden wurde.
Hat jemand eine Idee wie ich den Code anders kopieren kann?
Besten Dank für eine Antwort.