Excel: zwei Zellen aktualisieren sich gegenseitig?

Computer: Software & Programmierung Office Software
#1

Moin,

ich versuche folgendes:

zwei Zellen, A1 und A2. Bei Eingabe einer Zahl in A1 soll diese Zahl auch in A2 erscheinen. Bei Eingabe einer Zahl in A2 soll diese Zahl auch in A1 erscheinen. Also jeweils die letzte Eingabe in einer der beiden Zellen soll beide Zellen mit diesem Wert füllen.

Hintergrund: Für verschiedene Zwecke gibt es zwei verschiedene Darstellungsformen einer Tabelle. Eine Eingabe „auf einer Seite“ soll jeweils auch die „andere Seite“ mitändern.

Ist das mit Excel möglich? Oder braucht man dazu evtl. Access? Oder geht es auch damit nicht ???

thx
moe.

#2

Hallo,
das geht nur mit VBA.
Dazu im VBA-Editor im Objekt des betreffenden Tabellenblattes folgende Prozedur einfügen:

Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Adresse As String
Static ZweiterAufruf As Boolean
Adresse = Target.Address(False, False)
If ZweiterAufruf Then Exit Sub 'Abbruch sofern Inversaufruf
Select Case Adresse
Case "A1"
 ZweiterAufruf = True
 ActiveSheet.Range("A2").Value = ActiveSheet.Range("A1").Value
Case "A2"
 ZweiterAufruf = True
 ActiveSheet.Range("A1").Value = ActiveSheet.Range("A2").Value
End Select
ZweiterAufruf = False
End Sub

Die Prozedur wird bei jeder Änderung des Tabellenblattes aufgerufen, prüft ob von der Änderung die Zellen „A1“ oder „A2“ betroffen sind und überträgt den eingegebenen Wert in die entsprechende Zelle.

Gruß, tester!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

zwei Zellen, A1 und A2. Bei Eingabe einer Zahl in A1 soll
diese Zahl auch in A2 erscheinen. Bei Eingabe einer Zahl in A2
soll diese Zahl auch in A1 erscheinen. Also jeweils die letzte
Eingabe in einer der beiden Zellen soll beide Zellen mit
diesem Wert füllen.

Hintergrund: Für verschiedene Zwecke gibt es zwei verschiedene
Darstellungsformen einer Tabelle. Eine Eingabe „auf einer
Seite“ soll jeweils auch die „andere Seite“ mitändern.

Hi moe,
kompett kann man es schon nur mit vba lösen. Aber zur Hälfte kann man es „workarounden“.

Vergib einen Namen , z.B. Aktuell für

=JETZT()*0+RECHTS(ZELLE(„Dateiname“))

dann in eine beliebige Zelle auf allen Blättern z,B: E2

=Aktuell

Dann in alle Blätter die mitmachen sollen, in A2 die Formel:

=WAHL(E2;Tabelle1!A1;Tabelle2!A1;Tabelle3!A1)

Änderungen in A1 einer beliebigen Tabelle der mitmachenden Tabellen bewirkt überall den gleichen Wert in A2

Vielleicht reicht dir das ja.
Gruß
Reinhard