Gegenseitige Wertübernahme 2er Zellen

Computer: Software & Programmierung Office Software
1

Hallo,
ich stehe gerade vor einem kleinen Problem. Excel 2003
Ich habe in Tabelle A und Tabelle B jeweils ein Pflichtfeld.
Pflichtfeld=grünes Feld, was sich bei Eintrag eines Wertes weiss färbt:
Alle grünen Felder müssen vom Anwender ausgefüllt werden.
Nun wird ein Wert in 2 Tabellen unter verschiedenen Aspekten bewertet.
Um ein doppeltes Eintragen- was ein Fehlerrisiko birgt- zu vermeiden, wollte ich nun gerne,
dass egal in welchem Feld(Zelle)
„Preisübersicht E41“ oder
„Objektmanagement G53“ der Wert eingetragen wird, er auch in die andere Zelle übernommen wird.
Welche Formel oder VbA könnte das?

Die Felder sind an ihre Position gebunden und können nicht verändert werden, weil eine Vielzahl von Verknüpfungen bestehen.

Danke fürs lesen und fürs helfen.
Rumburak

2

dass egal in welchem Feld(Zelle)
„Preisübersicht E41“ oder
„Objektmanagement G53“ der Wert eingetragen wird, er auch in
die andere Zelle übernommen wird.
Welche Formel oder VbA könnte das?

Hallo Rumburak,

in das Modul „Diese Arbeitsmappe“

Private Sub Workbook\_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Intersect(Target, Range("E41, G53")) Is Nothing Then Exit Sub
If Sh.Name "Preisübersicht" And Sh.Name "Objektmanagement" Then Exit Sub
Application.EnableEvents = False
If Target.Address(0, 0) = "E41" Then
 Worksheets("Objektmanagement").Range("G53").Value = Target.Value
Else
 Worksheets("Preisübersicht").Range("E41").Value = Target.Value
End If
Application.EnableEvents = True
End Sub

Gruß
Reinhard

3

Hallo Reinhard,
Danke.
Rumburak