Hochzählen einer Zelle für mehrere Zeilen

Computer: Software & Programmierung Office Software
1

Guten Tag,
Kann ich das Hochzählen einer Zelle in einem Tabellenblatt auch für mehrere Zeilen durchführen?
Also z. B. enthält meine Tabelle 10 Zeile, für die jede Zeile (wenn neu beschrieben wird) hochgezählt werden muss.
Wir lautet dann die Codebeschreibung?
Ich hoffe, dass mir auch diesmal geholfen werden kann.

Im Voraus schon einmal vielen Dank für die Hilfe!

2

Hallo,

Also z. B. enthält meine Tabelle 10 Zeile, für die jede Zeile
(wenn neu beschrieben wird) hochgezählt werden muss.

Wenn Du einfach alle beschriebenen Zellen zählen willst, schreibst Du irgendwohin:
=ANZAHL2(A1:C10)

  • falls sich der Bereich auf drei Spalten erstreckt.
    Oder meintest Du etwas anderes?
    Gruß Verena
3

Guten Tag,
nein, leider hilft mir die Antwort nicht weiter. Ich brauche eine Funktion / Formel o.ä. die die zählt, wie oft eine Zelle neue beshrieben wird.

d.h. z.B. das zelle A1 das erste mal beschrieben, dann und dann sollt in Zelle B1 eine 1 erscheinen. Wird die Zelle A1 dann ein zweites mal beschrieben, sollte B1 automatisch auf 2 hochzählen.
Dieses benötige ich dann für die 10 zeilen meiner Tabelle!
Leider weiß ich nicht wie das funktioniert.

4

d.h. z.B. das zelle A1 das erste mal beschrieben, dann und
dann sollt in Zelle B1 eine 1 erscheinen. Wird die Zelle A1
dann ein zweites mal beschrieben, sollte B1 automatisch auf 2
hochzählen.

Hallo Amadeus,

Alt+F11, Doppelklick links auf den Blattnamen, Code reinkopieren, Editor schließen.

Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Address(0, 0) "A1" Then Exit Sub
If Target.Value "" Then Range("B1").Value = Range("B1").Value + 1
End Sub

Gruß
Reinhard

5

Kann ich den Code auch so umschreiben, dass ich das nicht nur für eine Zelle, sondern auch für mehrere Zellen nutzen kann?

Also, hochzählen, wenn Zelle A1 wiederbeschrieben wird und Ergebnis in Zelle B1 ausgeben, das gleiche dann noch einmal für Zelle A2, A3…

Ich hoffe, dass mir geholfen werden kann. Danke!

6

Kann ich den Code auch so umschreiben, dass ich das nicht nur
für eine Zelle, sondern auch für mehrere Zellen nutzen kann?

Also, hochzählen, wenn Zelle A1 wiederbeschrieben wird und
Ergebnis in Zelle B1 ausgeben, das gleiche dann noch einmal
für Zelle A2, A3…

Hallo Amadeus,

Private Sub Worksheet\_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If Target.Value "" Then
 Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + 1
End If
End Sub

Gruß
Reinhard