Wert von 2 Zellen immer gleich!

[WPS]

Gibt es eine Funktion im Excel die den Inhalt von 2 Zellen immer abgleicht?

z.B. Tabelle1 ZelleA1 - Wert=A und Tabelle2 ZelleA1 – Wert=A
Wenn einer der Werte geändert wird soll Automatisch der zweite Wert geändert
werden… (in beide Richtungen)

Wenn Tabelle1 ZelleA1 - Wert=B dann Tabelle2 ZelleA1 - Wert=B oder
Tabelle2 ZelleA1 - Wert=B dann Tabelle1 ZelleA1 - Wert=B

[Andreas Killer]

On 8 Jan., 08:57, WPS <W...@discussions.microsoft.com> wrote:

> Gibt es eine Funktion im Excel die den Inhalt von 2 Zellen immer abgleicht?

Das geht nur mit VBA, indem Du in jedes Codemodul des Tabellenblattes
die Zelle mit den Change-Ereignis überwachst und dann die andere
Tabelle abgleichst, z.B. so sähe dies für Tabelle1 aus wenn Zelle A1
mit Tabelle2!A1 übereinstimmen soll:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheets("Tabelle2").Range("A1") = Range("A1")
Application.EnableEvents = True
End If
End Sub

Tabelle2 muss braucht dann eine entsprechend angepasste Sub.

Andreas.

[Alexander Wolff]

> Gibt es eine Funktion im Excel die den Inhalt von 2 Zellen immer
> abgleicht?

------------------------------------------------------------------------

Das geht nur mit VBA, indem Du in jedes Codemodul des Tabellenblattes
die Zelle mit den Change-Ereignis überwachst und dann die andere
Tabelle abgleichst, z.B. so sähe dies für Tabelle1 aus wenn Zelle A1
mit Tabelle2!A1 übereinstimmen soll:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheets("Tabelle2").Range("A1") = Range("A1")
Application.EnableEvents = True
End If
End Sub

Tabelle2 muss braucht dann eine entsprechend angepasste Sub.

------------------------------------------------------------------------

Man könnte für diesen Zweck auch Tabelle1 und Tabelle2 gemeinsam auswählen
[Gruppe] und dann egal auf welchem von beiden die Zelle ändern.
--
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

[WPS]

Perfekt … danke danke danke …

Es lauft….

Danke für alles

"Andreas Killer" schrieb:

[WPS]

Perfekt … danke danke danke …

Es lauft….

Danke für alles

"Alexander Wolff" schrieb:

[WPS]

Was muss ich veranstalten damit diese Funktion variabel und für einen
Zellbereich funktioniert?

Private Sub ComboBox1_Change()

Select Case ComboBox1.Value
Case 0 'A und B
*********************************************************
Range("B6").Value = "B"
Range("C6").Value = "C"
' soll alle Werte abgleichen (Tabelle1 B10 - B20) mit (Tabelle2 B10
- B20)
' und alle Werte (Tabelle1 C10 - C20) mit (Tabelle2 C10- C20)
Case 1 'A und C
*********************************************************
Range("B6").Value = "B"
Range("C6").Value = "D"
' soll alle Werte abgleichen (Tabelle1 B10 - B20) mit (Tabelle2 B10
- B20)
' und alle Werte (Tabelle1 C10 - C20) mit (Tabelle2 D10- D20)
Case 2 'A und D
*********************************************************
Range("B6").Value = "B"
Range("C6").Value = "E"
' soll alle Werte abgleichen (Tabelle1 B10 - B20) mit (Tabelle2 B10
- B20)
' und alle Werte (Tabelle1 C10 - C20) mit (Tabelle2 E10 - E20)
Case 3 'A und E
*********************************************************
Range("B6").Value = "B"
Range("C6").Value = "F"
' soll alle Werte abgleichen (Tabelle1 B10 - B20) mit (Tabelle2 B10
- B20)
' und alle Werte (Tabelle1 C10 - C20) mit (Tabelle2 F10 - F20)
End Select

End Sub

Gruß
Werner

"Alexander Wolff" schrieb: