Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige