Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen wechselseitig aktualisieren

Betrifft: Zellen wechselseitig aktualisieren von: Andre
Geschrieben am: 13.09.2004 11:30:00

Hallo,

ich benötige Hilfe in folgender Sache: Das wechselseitige Aktualisieren
zweier Zellen wurde mir über die Hilfe im Forum bereits erläutert und klappt
auf einem Arbeitsblatt auch prima (siehe beigefügte Datei)
Dazu noch einmal ein großes Dankeschön an Matthias und Michael !!!

Wie kann ich es jedoch einrichten, dass die Zellen auch auf unterschiedlichen
Arbeitsblättern synchronisiert werden ? (Zelle1 auf Tabelle1, Zelle2 auf Tabelle2)

Ich wäre sehr froh, wenn es auch hierfür eine ähnliche Lösung gäbe.

Vielen Dank im voraus.
Andre

  


Betrifft: Ergänzung: Zellen wechselseitig aktualisieren von: Andre
Geschrieben am: 13.09.2004 11:33:49

Hier ist noch die vorangegangene Lösung für Aktualisierung auf einem Arbeitsblatt.
(Hatte ich vergessen mit anzuhängen)




Betrifft: AW: Zwei Zellen wechselseitig aktualisieren ?
von: Matthias G
Geschrieben am: 14.05.2004 10:31:56

Hallo Andre,

folgenden Code ins Tabellenblattmodul:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
Range("B1") = Range("A1")
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("B1")) Is Nothing Then
Application.EnableEvents = False
Range("A1") = Range("B1")
Application.EnableEvents = True
End If
End Sub


Gruß Matthias





Betrifft: AW: Zwei Zellen wechselseitig aktualisieren ?
von: Michael Brueggemann
Geschrieben am: 14.05.2004 10:34:26

Hallo Andre,

dafuer benoetigst du eine Ereignis gesteuerte Funktion, die du im Codefenster der entsprechenden Tabelle hinterlegst (VB Editor starten, im Projektfenster die Tabelle doppelt klicken und folgenden Code einfuegen):


Private Sub Worksheet_Change(ByVal Target As Range)

    Select Case Target.Address
        Case "$A$1"
            Application.EnableEvents = False
            Range("B1").Value = Range("A1").Value
            Application.EnableEvents = True
        Case "$B$1"
            Application.EnableEvents = False
            Range("A1").Value = Range("B1").Value
            Application.EnableEvents = True
    End Select
    
End Sub



Die Anweisungen "Application.EnableEvents = False" vermeiden eine Endlosschleife, wenn die Partnerzelle modifiziert wird. Nach Aktualisierung der Zelle durch die Prozedur muss diese Option mittels "Application.EnableEvents = True" wieder eingeschaltet werden.


CIAO
Michael





 

Beiträge aus den Excel-Beispielen zum Thema "Zellen wechselseitig aktualisieren"