Hallo Leute,

ich würde gerne den folgenden Code per Makro einfügen wollen:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.AddressLocal(0, 0) = "A1" Then

Cells(5, 1).Value = Cells(4, 1).Value

Cells(4, 1).Value = Cells(3, 1).Value

Cells(3, 1).Value = Cells(2, 1).Value

Cells(2, 1).Value = Cells(1, 1).Value

Range("A8").FormulaR1C1 = "=AVERAGE(R[-7]C:R[-1]C)"

End If

End Sub

Jetzt habe ich eine interessante Idee im Internet gefunden, die versucht das wie eine Textfile abzuspeichern und dann abzurufen:

Sub Test()
    Dim txt As String
    
    With ThisWorkbook.VBProject
       With .vbcomponents("CodeInSheetStellen").Codemodule
          txt = .Lines(1, .CountOfLines)
       End With
       With .vbcomponents(Sheets(3).CodeName).Codemodule
           .AddFromString txt
       End With
    End With
    
 End Sub

Hierzu wird in "CodeINSheetStellen" ein Modul in dem der 1. obere Code drin steht. Leider funktioniert das trotzdem nicht. Wenn man das Makro "Test" durchführt bleibt dies auf folgender Zelle stehen:

       With .vbcomponents("CodeInSheetStellen").Codemodule

mit der folgender Fehlermeldung: "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs".

Ich bin noch ein VBA Neuling und hoffe auf Unterstützung.

Vielen Dank vorab.