Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zähler einbauen

Zähler einbauen
Rudolf
Moin,
beim googeln habe ich nichts gefunden:
Kann man in einer Excel-Zelle einen Zähler "einbauen", dessen Wert sich dann um 1 erhöht, wenn in dem Arbeitsblatt in irgendeiner anderen Zelle eine neue Eingabe gemacht wurde (... also fortlaufendes Zählen der "Aktivitäten" in der betreffenden Zelle?
Gruß
Rudolf

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zähler einbauen
03.02.2012 12:46:33
Frank

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IntA1 As Integer
IntA1 = Range("A1").Value
IntA1 = IntA1 + 1
Range("A1").Value = IntA1
End Sub

AW: Zähler einbauen
03.02.2012 12:51:46
Frank
Halt, Kommando zurück. Das zählt schon hoch, sobald man eine Zelle auswählt.
_Change statt _SelectionChange owT
03.02.2012 13:05:42
Rudi
AW: _Change statt _SelectionChange owT
03.02.2012 13:11:34
Frank
@Rudi:
Habe ich auch probiert, bei mir stürzt Excel dann immer ab.
So geht es aber, zumindest bei mir:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vNew As Variant, vOld As Variant
Dim IntA1 As Integer
If Intersect(Target, Range("A1:Z200")) Is Nothing Then Exit Sub ' Bereich entsprechend anpassen
vNew = Target.Value
Application.EnableEvents = False
On Error GoTo Errorhandler
Application.Undo
vOld = Target.Value
Target.Value = vNew
If vNew = vOld Then
Exit Sub
Else
IntA1 = Range("A1").Value
IntA1 = IntA1 + 1
Range("A1").Value = IntA1
End If
Errorhandler:
Application.EnableEvents = True
End Sub

Anzeige
AW: _Change statt _SelectionChange owT
03.02.2012 13:28:23
Rudi
Hallo,
warum sollte Excel abstürzen?
Mal als Kurzform:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERRH
Application.EnableEvents = False
[A1] = [A1] + 1
ERRH:
Application.EnableEvents = True
End Sub

Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge