Spiegeln Sie Zellen so, dass eine Änderung in einer der Zellen die andere aktualisiert

0

Ich habe 2 Zellen mit denselben Auswahllistenwerten auf separaten Blättern. Ich möchte, dass die Zellen sich gegenseitig spiegeln, sodass der Wert auf dem anderen Blatt aktualisiert wird, wenn ich in Blatt 1 oder Blatt 2 einen neuen Wert wähle, der dem neu ausgewählten Wert entspricht. Ist das möglich?

Vielen Dank!

AKTUALISIEREN

Arbeitsblatt 1:

Arbeitsblattname: 'Live Forecast Tool'

Zelle mit Auswahlliste: C3: D3 (zusammengeführt)

Auswahllistenwerte innerhalb des Bereichs: = 'SF MRF'! H5: Y5

Arbeitsblatt 2:

Arbeitsblattname: 'AH'

Zelle mit Auswahlliste: C3: D3 (zusammengeführt)

Auswahllistenwerte innerhalb des Bereichs: = 'SF MRF'! H5: Y5

Zelle C3: D3 muss aktualisiert werden, um den Wert anzuzeigen, der auf dem anderen Blatt geändert wurde.

microsoft-excel Alex S
quelle
mögliches Duplikat von Excel-VBA-Code Private Sub Worksheet Change Power-Funktion funktioniert nicht
Raystafarian
1
Diese Antwort mag meine Frage lösen, aber die Anwendung ist offensichtlich anders und komplexer. Ich verfüge nicht über ausreichende Kenntnisse in Visual Basic, um den Code zu erkennen oder anzupassen. Auf welche Frage soll ich antworten, um Unterstützung zu erhalten?
Alex S
Wenn Sie einen Satz von Regeln und tatsächlichen Zellreferenzen (einschließlich Arbeitsblattnamen) bereitstellen können, kann jemand (dort) eine schnelle Routine schreiben kann Eigentlich zwei), mit denen Sie anfangen können. Bisher ist Ihre Frage viel zu vage, um überhaupt anzufangen. Fügen Sie Ihrer Frage die zusätzlichen Informationen hinzu, damit jeder sie sehen kann, ohne mehrere Kommentare durchsuchen zu müssen. Hinweis: Ein Workbook_SheetChange-Ereignismakro kann die Codierung auf ein einzelnes Ereignismakro reduzieren.
Jeeped
@Jeeped Danke für den Hinweis, ich habe die Frage aktualisiert. Ich habe eine schnelle Suche nach Workbook_SheetChange durchgeführt, konnte jedoch kein offensichtliches Beispiel für ein Makro finden, das hierfür verwendet werden könnte. Ich würde mich über Vorschläge freuen.
Alex S
Die Lösung müsste etwas sein, an dem VBA beteiligt ist. Wenn Sie dies mit Formeln tun würden, hätten Sie einen Zirkelverweis.
fixer1234

Antworten:

0

In dem AH Code-Bereich Geben Sie das folgende Ereignismakro ein: 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r1 As Range, r2 As Range
    Set r1 = Range("C3")
    Set r2 = Sheets("Live Forecast Tool").Range("C3")
    If Intersect(Target, r1) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        r2.Value = r1.Value
    Application.EnableEvents = True
End Sub

In dem Live-Prognose-Tool Code-Bereich Geben Sie das folgende Ereignismakro ein: 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r1 As Range, r2 As Range
    Set r1 = Range("C3")
    Set r2 = Sheets("AH").Range("C3")
    If Intersect(Target, r1) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        r2.Value = r1.Value
    Application.EnableEvents = True
End Sub
Gary's Student
quelle
danke, das funktioniert perfekt. Seit ich die Frage gestellt habe, habe ich ein weiteres Blatt namens AT hinzugefügt. Kann man mit diesem Makro auch C3 für dieses Blatt spiegeln?
Alex S