Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen wechselseitig aktualisieren

Forumthread: Zellen wechselseitig aktualisieren

Zellen wechselseitig aktualisieren
13.09.2004 11:30:00
Andre
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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ergänzung: Zellen wechselseitig aktualisieren
13.09.2004 11:33:49
Andre
Hier ist noch die vorangegangene Lösung für Aktualisierung auf einem Arbeitsblatt.
(Hatte ich vergessen mit anzuhängen)
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

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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige