Bei Änderung in Zellbereich Wert übertragen
12.02.2019 21:59:47
Benni
ich stehe grad etwas auf dem Schlauch und bitte um eure Unterstützung.
Ich habe eine Liste die per Userform (extra Datei) mit Daten gefüttert wird.
Extra Datei, da mehrere Leute auf diese Liste zugreifen.
Mein Vorhaben soll bewirken, wenn ich in "BSP_A" im Bereich "P3:Q110" Eingaben/Änderungen vornehme, diese Eingaben in "BSP_B übertragen werden.
Allerdings soll die Zeile in die der Wert übertragen wird, per Kriterium, welches sich in beiden Dateien in "Spalte A" befindet, bestimmt werden.
Nach dem Übertragen soll in die Ausgangszelle eine Formel eingetragen werden.
Bisher habe ich leider nicht viel
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("P3:Q110")) Is Nothing Then Exit Sub
Target.Offset(0, 2) = Target.Value
Application.EnableEvents = False 'damit nach Formeleingabe nicht nochmal
'Worksheet_Change ausgeführt wird
Target.Offset(0, 0).Formula = "=Sum(B2:C5)"
Application.EnableEvents = True
End Sub
Die Formel sowie der Offset Bereich dienen nur zum Testen.
Ich komm allerdings aktuell überhaupt nicht drauf wie ich das ganze so erweitern kann, dass ich in "BSP_A" "Spalte A" den Wert der Zeile Abfrage bei der die Änderung vorgenommen wurde und anschliessend diesen Wert in "BSP_B" "Spalte A" abfrage und dort dann "Spalte B" den geändert Wert übernehme.
Ich vermute dass ich das in Richtung
Target.Offset(0,-15).Value =
Ich hoffe ich konnte mein Problem halbwegs verständlich schildern. Wahrscheinlich ist es für die fachkundigeren Excel-Profis eine Kleinigkeit. Ich bin für jede Hilfe dankbar.
Grüße Benni