2. Excel Liste automatisch anpassen bei Änderung
10.01.2017 09:25:20
Johannes
ich versuche mich derzeit an folgendem Problem:
Wenn ich meine Grundtabelle anpasse, würde ich gerne, dass die anpassung in einer identischen Liste gemacht wird. Ich habe nun versucht, nachdem ich den neuen Wert eingegeben habe, dass nachdem ich enter drücke durch Worksheet_Change sich den gerade geänderten Wert kopiert und in die neue Liste kopiert.
So sieht mein Code aus:
Private Sub Worksheet_Change(ByVal Target As Range)
' Gibt die aktuelle Zeilen-Position zurück.
x = ActiveCell.Row
' Gibt die akuelle Spalten-Position zurück.
y = ActiveCell.Column
Workbooks("Grundtabelle-xlsm").Worksheets("Kalkulation").Range(Cells(x - 1, y)).Copy _
Destination:=Workbooks("Platine_inhouse_mit_Schuller_WKZ.xlsx").Worksheets("Kalkulation" _
).Range(Cells(x - 1, y))
End Sub
Ich bekomme den Laufzeitfehler 1004 (Anwendungs- oder objektdefinierter Fehler)
Mit einem normalen Modul und einem Loop habe ich es bereits probiert, dass dauert aber knapp 5min, da es eine riesige Liste ist.
Bin um jede Hilfe dankbar.
Liebe Grüsse