Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwei Zellen wechselseitig aktualisieren ?

Forumthread: Zwei Zellen wechselseitig aktualisieren ?

Zwei Zellen wechselseitig aktualisieren ?
14.05.2004 10:21:50
Andre
Hallo,
ich habe folgendes Problem:
Wie kann ich die Eingaben in zwei Zellen wechselseitig aktualisieren.
z.B. bei Eingabe in A1 soll der Wert auch automatisch in
B1 eingetragen werden. Wird jetzt der Wert in B1 überschrieben,
so soll der Inhalt von A1 automatisch aktualisiert werden.
Auf der Excel-CD habe ich leider nichts gefunden.
Vielen Dank im voraus.
Andre
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei Zellen wechselseitig aktualisieren ?
14.05.2004 10:31:56
Matthias
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
Anzeige
AW: Zwei Zellen wechselseitig aktualisieren ?
Michael
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
;
Anzeige
Anzeige

Infobox / Tutorial

Zwei Zellen wechselseitig aktualisieren in Excel

Schritt-für-Schritt-Anleitung

Um zwei Zellen in Excel wechselseitig zu aktualisieren, benötigst du eine VBA (Visual Basic for Applications) Funktion. Folge diesen Schritten:

  1. Excel öffnen und die Arbeitsmappe auswählen, in der du die Zellen aktualisieren möchtest.

  2. VBA-Editor starten: Drücke ALT + F11.

  3. Im Projektfenster auf die entsprechende Tabelle doppelklicken (z.B. "Tabelle1").

  4. Code einfügen: Kopiere folgenden Code und füge ihn in das Codefenster ein:

    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

  5. VBA-Editor schließen und zurück zu Excel wechseln.

  6. Teste die Funktion, indem du Werte in A1 und B1 eingibst. Die Zellen sollten sich gegenseitig aktualisieren.

Häufige Fehler und Lösungen

  • Fehler: Zellen aktualisieren nicht
    Lösung: Überprüfe, ob der Code korrekt eingefügt wurde und dass du in der richtigen Tabelle arbeitest. Stelle sicher, dass die Excel-Datei als „Makro-aktivierte Arbeitsmappe“ (.xlsm) gespeichert ist.

  • Fehler: Endlosschleife
    Lösung: Wenn du die Zeilen Application.EnableEvents = False und Application.EnableEvents = True nicht verwendest, kann dies zu einer Endlosschleife führen. Achte darauf, diese Zeilen in deinem Code zu haben.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch folgende Methoden ausprobieren:

  • Formeln: Verwende die Formel =A1 in B1 und umgekehrt. Beachte jedoch, dass dies nicht wechselseitig ist, sondern nur eine Richtung hat.
  • Excel Makros: Du kannst ein Makro erstellen, das die Zellen aktualisiert, aber dies erfordert ebenfalls Kenntnisse in VBA.

Praktische Beispiele

Hier sind einige Szenarien, in denen das Aktualisieren von Zellen nützlich sein kann:

  • Preiskalkulation: Wenn du den Preis in A1 änderst, soll der Rabatt in B1 automatisch angepasst werden.
  • Projektmanagement: Wenn du den Status eines Tasks in A1 änderst, soll sich der Fortschritt in B1 automatisch aktualisieren.

Tipps für Profis

  • Experimentiere mit anderen Zellen, indem du den Bereich in der Range-Funktion änderst.
  • Nutze die Funktion in größeren Datenblättern, um die Effizienz zu steigern und Fehlerquellen zu minimieren.
  • Halte deinen Code sauber und gut kommentiert, damit du später leicht Änderungen vornehmen kannst.

FAQ: Häufige Fragen

1. Wie kann ich den Code anpassen, um mehr als zwei Zellen zu aktualisieren?
Du kannst zusätzliche If Not Intersect-Bedingungen hinzufügen, um weitere Zellen zu berücksichtigen.

2. Funktioniert das auch in Excel Online?
Nein, VBA funktioniert nur in der Desktop-Version von Excel. In Excel Online stehen diese Funktionen nicht zur Verfügung.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige