Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zählen, wenn Zelle geändert wird

Forumthread: Zählen, wenn Zelle geändert wird

Zählen, wenn Zelle geändert wird
06.12.2006 10:00:05
Specke
Hallo Experten,
gibt es eine Möglichkeit (ohne VBA) zu zählen, wie oft eine Zelle geändert wird? Wenn ja, wie?
Konkret:
Ich habe in Spalte K das Update-Datum stehen (wird immer manuell eingetragen). In Spalte L soll ein Zähler stehen, der um eins erhöht wird, wenn das Datum in Spalte K geändert wird.
So möchte ich schauen, wie oft ein Task( eine Zeile) angepasst wurde.
Vielen Dank
Specke
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zählen, wenn Zelle geändert wird
06.12.2006 11:13:14
Ptonka
Hallo Specke,
ohne VBA geht das nicht.
Öffne den VBA-Editor und stelle unter Deiner Tabelle (Tabelle1 oder so) folgenden Code ein:

Private Sub Worksheet_Change(ByVal target As range)
If target = Cells(1, 11).Value Then
Call Zähler
End If
End Sub

Sub Zähler()
'Dim range("L1") As Long
Cells(1, 12).Value = Cells(1, 12).Value + 1
End Sub
Bei jeder Änderung in Zelle K1 wird in Zelle L1 um eins hochgezählt.
Gruß,
Jochen
P.S. Feedback ist immer interessant.
Anzeige
Schade - trotzdem danke! owT Specke
06.12.2006 13:28:35
Specke
;
Anzeige

Infobox / Tutorial

Zählen von Änderungen in Excel-Zellen


Schritt-für-Schritt-Anleitung

Wenn du zählen möchtest, wie oft eine Zelle in Excel geändert wird, benötigst du tatsächlich VBA (Visual Basic for Applications). Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und gehe zu der Tabelle, in der du die Änderungen zählen möchtest.

  2. Öffne den VBA-Editor:

    • Drücke ALT + F11.
  3. Finde die Tabelle, in der du arbeiten möchtest (z.B. "Tabelle1").

  4. Füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_Change(ByVal target As Range)
       If Not Intersect(target, Me.Columns("K")) Is Nothing Then
           Call Zähler
       End If
    End Sub
    
    Sub Zähler()
       Cells(target.Row, 12).Value = Cells(target.Row, 12).Value + 1
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Excel.

Jetzt wird bei jeder Änderung in Spalte K der Zähler in Spalte L automatisch um eins erhöht.


Häufige Fehler und Lösungen

  • Fehler: Der Zähler wird nicht erhöht.

    • Lösung: Stelle sicher, dass der Code korrekt in das richtige Tabellenmodul eingefügt wurde und dass keine Schreibschutz- oder Berechtigungsprobleme vorliegen.
  • Fehler: Excel zeigt eine Fehlermeldung an.

    • Lösung: Überprüfe, ob alle Variablen und Objekte im Code korrekt deklariert sind und die Syntax stimmt.

Alternative Methoden

Falls du keine VBA-Lösungen verwenden möchtest, gibt es leider keine direkte Methode, um Zellenänderungen zu zählen. Eine mögliche Alternative ist die Verwendung von Excel-Funktionen, jedoch ist dies nicht so automatisiert wie mit VBA.

Eine Möglichkeit wäre, eine zusätzliche Spalte zu nutzen, um manuell die Änderungen zu protokollieren. Dies erfordert jedoch Disziplin und kann Fehler mit sich bringen.


Praktische Beispiele

  1. Beispiel für ein einfaches Zählsystem:

    • Wenn in Zelle K1 das Datum geändert wird, wird in Zelle L1 die Anzahl der Änderungen erhöht.
    • Der Code dazu wurde bereits in der Schritt-für-Schritt-Anleitung beschrieben.
  2. Zählen von Änderungen in mehreren Zeilen:

    • Der gleiche Code kann angepasst werden, um Änderungen in mehreren Zeilen zu zählen, indem du target.Row im Zähler entsprechend verwendest.

Tipps für Profis

  • Nutze Kommentare im VBA-Code, um Deine Logik zu dokumentieren. Dies hilft dir und anderen, den Code später besser zu verstehen.
  • Teste den Code in einer Kopie Deiner Datei, um unbeabsichtigte Datenverluste zu vermeiden.
  • Verwende die Application.EnableEvents = False und True Anweisungen, um zu verhindern, dass dein Code in eine Endlosschleife gerät.

FAQ: Häufige Fragen

1. Kann ich das Zählen auch ohne VBA machen? Leider ist es ohne VBA nicht möglich, Änderungen in einer Zelle automatisch zu zählen.

2. Was passiert, wenn ich das Excel-Dokument schließe? Die Zählerfunktion bleibt aktiv, solange die Datei geöffnet ist und die Makros aktiviert sind. Beim Schließen wird der Zählerstand jedoch nicht gespeichert, es sei denn, du implementierst eine Speicherfunktion.

3. Ist dieser Code mit allen Excel-Versionen kompatibel? Ja, der Code sollte mit den meisten modernen Excel-Versionen ab Excel 2007 funktionieren, solange die Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

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