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

Wenn sich Zellenwert ändert dann...

Forumthread: Wenn sich Zellenwert ändert dann...

Wenn sich Zellenwert ändert dann...
24.05.2016 17:58:34
Lukas
Hallo, ich brauche ein Ereignis in Excel, das jedes mal ausgelöst wird, wenn in einer Zelle der Wert geändert wird. Also wenn etwas hineingeschrieben wird.
Wenn das Ereignis ausgelöst wird möchte ich außerdem herausfinden, in welcher Zelle sich etwas geändert hat.
Danke für die Antworten schon im Voraus!

Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn sich Zellenwert ändert dann...
24.05.2016 18:06:14
Daniel
Hi
schau dir mal das Worksheet_Change-Event an.
in der Variablen Target sind die geänderten Zellen hinterlegt.
Gruß Daniel

AW: Wenn sich Zellenwert ändert dann...
24.05.2016 18:10:35
Lukas
Vielen Dank für deine Antwort!
Und wie kann ich prüfen ob eine Formel sich geändert hat (passiert automatisch)?

AW: Wenn sich Zellenwert ändert dann...
24.05.2016 18:28:28
Daniel
Hi
das Calculate-Event startet wenn auf dem Blatt irgendeine Zelle neu berechnet wird.
Es ist aber weder möglich irgendwo auszulesen, welche Zellen neu berechnet wurden und welche Zellen dabei geändert wurden.
Um einzelne Zellne auf Änderung zu überprüfen, könntest du die Alt-Werte in einer Statischen Variablen ablegen und mit dem Wert aktuellen Wert vergleichen.
Statische Variablen behalten ihren Wert bei Makroende.
Da sie bei Dateistart aber immer erstmal leer sind, wird bei der ersten neuberechnung nach Makrostart eine Änderung angezeigt:
private Sup Worksheet_Calculate()
static WertA1 as variant
If Range("A1").Value  WertA1 then
Msgbox "Wertänderung in A1"
WertA1=Range("A1").Value
end if
End Sub
gruß Daniel

Anzeige
AW: Wenn sich Zellenwert ändert dann...
24.05.2016 18:33:47
Lukas
Das mit den statischen Variablen bringt nichts... ich muss irgendwie wissen welche der Zellen neu berechnet wurde...

AW: Wenn sich Zellenwert ändert dann...
24.05.2016 18:52:35
Daniel
du musst prinzipell jeden Zellwert überwachen.
wenns viele sind, kannst du ja ein Array anlegen oder die Werte als Festwerte in eine Paralleltabelle kopieren (als Wert) und dann per Schleife die Wert aus der Paralleltabelle mit den Formelwerten vergleichen.
das mit der Paralleltabelle hätte auch den Vorteil, dass deine "alt-Werte" auch bei Makrostart schon vorhanden sind und nicht erstmal jeder Wert "geändert" erkannt wird.
gruß Daniel

Anzeige
AW: Wenn sich Zellenwert ändert dann...
24.05.2016 19:25:52
Lukas
Ich müsste alle Zellen in Excel in das Array packen... das geht nicht...

AW: Wenn sich Zellenwert ändert dann...
24.05.2016 19:48:10
Daniel
ich schreib ja, dass du alternativ die Werte auch kopieren und in zweites Tabellenblatt einfügen kannst.
das geht auf jeden Fall (wenn du nicht extrem viele Daten hast)
Daniel

AW: Wenn sich Zellenwert ändert dann...
24.05.2016 20:22:06
Lukas
Ich habe eine andere Lösung gefunden, die in diesem Fall auch funktioniert.
Mein Makro hätte in einem anderen Tabellenblatt Änderungen vorgenommen wenn in der Zelle die geändert wurde (nur bestimmte - hätte ich mit Überschrift darüber prüfen können ob diese Zelle relevant ist). Ich stelle nun einfach per Makro einen Bezug zu der Zelle her.
Danke für deine Hilfe trotzdem!

Anzeige
AW: Wenn sich Zellenwert ändert dann...
24.05.2016 19:00:46
ChrisL
Hi Lukas
Bleibst du beim Change-Ereignis, dann müsstest du die Eingabezellen überwachen, welche zum Formelergebnis führen.
Oder eben du überwachst das Formelergebnis (siehe Vorschlag Daniel).
Bei Variante 1 ist Target die geänderte Zelle, bei Variante 2 ist es die im Code definierte Zelle.
cu
Chris

Anzeige
AW: Wenn sich Zellenwert ändert dann...
24.05.2016 19:27:02
Lukas
Ich muss beim Calculate-Ereignis alle Zellen in Excel überwachen!

AW: Crossposting
24.05.2016 19:05:01
Daniel
bitte nicht vergessen, in ALLEN Foren, in denen du die Frage gestellt hast, auf Antworten Feedback zu geben und Rückfragen zu beantworten!
auch wenn du in einem Forum schon eine zufriedenstellende Antwort erhalten hast.
jeder Antworter hat sich ein Dankeschön von dir verdient, egal in welchem Forum.
Gruß Daniel

Anzeige
AW: Crossposting
24.05.2016 19:05:17
Daniel
bitte nicht vergessen, in ALLEN Foren, in denen du die Frage gestellt hast, auf Antworten Feedback zu geben und Rückfragen zu beantworten!
auch wenn du in einem Forum schon eine zufriedenstellende Antwort erhalten hast.
jeder Antworter hat sich ein Dankeschön von dir verdient, egal in welchem Forum.
Gruß Daniel

Anzeige
AW: Crossposting
24.05.2016 19:24:53
Lukas
Ich habe ja auch vor mich zu bedanken, habe gerade gegessen und deshalb keine Zeit gehabt!
Ich habe mich bisher noch für alles bedankt!!
;

Forumthreads zu verwandten Themen

VBA Wenn sich ein Zellwert ändert, dann
Peter

Hallo an Alle,
hier mein Hilferuf:
Wenn "B1" sich ändert, dann sollen die Zellen A6:G6 mit einer Null gefüllt werden.
Seit Tagen experimentiere ich mit dem Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Das Ausfüllen mir der Null habe ich mit dem Macrore...
19.05.2013 11:14:42
Thread-ID: 1313868
2 Beiträge
Hintergrund ändern wenn sich Wert ändert
Oisse

Hallo Zusammen,
mir stellt sich folgendes Problem:
Wenn sich der Einzelpreis ändert (Spalte J) dann soll sich die Hintergrundfarbe ändern in Spalte S.
Das funktioniert soweit auch gut.
Der Code: If Target = Range("J" & Target.Row) Then Range("S" & Target.Row).Interior.C...
30.05.2016 13:02:33
Thread-ID: 1495902
7 Beiträge
Wenn sich Wert ändert, Datum in Zeile eintragen
T1M0

Hallo liebe Community,
in einer Exceltabelle möchte ich in Spalte FF automatisiert das Datum eintragen lassen, sobald ein neuer Wert in Spalte D eingetragen wird oder sich der Wert in Spalte D ändert. Die Eintragung sollte zeilenscharf erfolgen: ändert sich der Wert in Spalte D4 sollte das...
16.05.2017 17:12:56
Thread-ID: 1558695
3 Beiträge
Anzeige
VBA WENN Datenüberprüfung sich ändert DANN
DJRidoo

Hallo,
ich habe mittels Daten -- Datenüberprüfung -- Liste (Werte werden dort ins Feld eingegeben und werden nicht aus Zellenbezug übernommen) eine Auswahlliste erstellt. Zur Auswahl stehen:
vorhanden
nicht vorhanden
wird gekauft
Nun möchte ich, dass wenn ich eines der drei...
23.05.2018 22:45:29
Thread-ID: 1625425
7 Beiträge
Code ausführen wenn sich Zellwert ändert
dEllE
Guude an alle,
ich stehe vor einem wahrscheinlich kleinen Problem, zu dem mir aber die verschiedenen Möglichkeiten der VBA Funktionen fehlen:
Einfach erklärt:
Durch Eingabe eines Wertes in genau einer Zelle wird eine Tabelle gefiltert.
Wird dieser Wert aus der Zelle wieder gelöscht,...
03.09.2021 09:09:59
Thread-ID: 1846001
8 Beiträge
Wenn sich Wert ändert dann Rot
Marcus
Hallo zusammen,
trotz der Hilfe von neopa C, finde ich auf der verlinkten Seite keine Lösung für mein Problem.
Folgendes, ich habe 2 Spalten
A Datum
B Eintrag
wenn sich jetzt das Datum ändert muss ich den Eintrag dementsprechend ändern.
Datum pflegt Kollege ein
so jetzt w...
22.06.2022 14:32:38
Thread-ID: 1888190
11 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zellenwerte in Excel überwachen und ändern

Schritt-für-Schritt-Anleitung

  1. Öffne den Visual Basic for Applications (VBA) Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle das entsprechende Arbeitsblatt:

    • Im Projektfenster links wählst du das Arbeitsblatt aus, in dem du das Ereignis implementieren möchtest.

  3. Füge den Code für das Worksheet_Change-Ereignis hinzu:

    • Kopiere den folgenden Code in das Arbeitsblattmodul:
    Private Sub Worksheet_Change(ByVal Target As Range)
   MsgBox "Wert geändert in: " & Target.Address
End Sub
    • Dieser Code zeigt eine Nachricht an, wenn sich ein Zellenwert ändert.

  4. Speichere die Datei:

    • Stelle sicher, dass du die Datei im Excel-Format mit Makros speicherst (*.xlsm).

  5. Teste den Code:

    • Ändere einen Zellenwert in dem Arbeitsblatt und überprüfe, ob die Meldung erscheint.

Häufige Fehler und Lösungen

  • Keine Meldung erscheint:

    • Stelle sicher, dass der Code im richtigen Arbeitsblattmodul eingefügt wurde. Der Code muss im spezifischen Arbeitsblatt sein, nicht in einem allgemeinen Modul.

  • Makros sind deaktiviert:

    • Überprüfe die Macro-Sicherheitseinstellungen in Excel, um sicherzustellen, dass Makros aktiviert sind.

  • Das Calculate-Ereignis wird nicht erkannt:

    • Beachte, dass Änderungen durch Formeln nicht automatisch das Change-Ereignis auslösen. In diesem Fall solltest du das Worksheet_Calculate-Ereignis verwenden.

Alternative Methoden

  • Überwachung mehrerer Zellen:

    • Wenn du mehrere Zellen überwachen möchtest, kannst du eine Bedingung hinzufügen, um die Zellen zu filtern:
    Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Me.Range("A1:A10")) Is Nothing Then
      MsgBox "Änderung in überwachten Zellen!"
  End If
End Sub

  • Verwendung von statischen Variablen:

    • Du kannst statische Variablen verwenden, um den vorherigen Wert zu speichern und Änderungen zu überprüfen, wie von Daniel im Forum beschrieben.

Praktische Beispiele

  • Beispiel für das Überprüfen einer bestimmten Zelle:

    • Wenn du nur die Zelle A1 überwachen möchtest:
    Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
      MsgBox "Wert in A1 geändert!"
  End If
End Sub

  • Verwenden des Worksheet_Calculate-Ereignisses:

    • Um Änderungen bei Berechnungen zu überwachen, verwende den folgenden Code:
    Private Sub Worksheet_Calculate()
  MsgBox "Das Arbeitsblatt wurde neu berechnet!"
End Sub

Tipps für Profis

  • Verwende Arrays für effiziente Überwachung:

    • Wenn du viele Zellen überwachen musst, kann es effizienter sein, ihre Werte in einem Array zu speichern und mit den aktuellen Werten zu vergleichen.

  • Vermeide unnötige Berechnungen:

    • Füge Bedingungen hinzu, um nur relevante Zellen zu überwachen. Dies verbessert die Leistung deines Makros.

  • Nutze Application.EnableEvents:

    • Setze Application.EnableEvents = False am Anfang des Codes und Application.EnableEvents = True am Ende, um rekursive Aufrufe zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich feststellen, wann eine Zelle zuletzt geändert wurde?
Du kannst die Worksheet_Change-Ereignisprozedur verwenden, um den aktuellen Zeitpunkt in einer anderen Zelle zu speichern.

2. Was ist der Unterschied zwischen Change und Calculate?
Change wird ausgelöst, wenn ein Zellenwert manuell geändert wird, während Calculate aufgerufen wird, wenn Excel eine Neuberechnung durchführt.

Beliebteste Forumthreads (12 Monate)

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