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