|
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.
|