Microsoft Excel

Herbers Excel/VBA-Archiv

Zähler einbauen | Herbers Excel-Forum


Betrifft: Zähler einbauen von: Rudolf Perkams
Geschrieben am: 03.02.2012 12:41:25

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

  

Betrifft: AW: Zähler einbauen von: Frank
Geschrieben am: 03.02.2012 12:46:33

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



  

Betrifft: AW: Zähler einbauen von: Frank
Geschrieben am: 03.02.2012 12:51:46

Halt, Kommando zurück. Das zählt schon hoch, sobald man eine Zelle auswählt.


  

Betrifft: _Change statt _SelectionChange owT von: Rudi Maintaire
Geschrieben am: 03.02.2012 13:05:42




  

Betrifft: AW: _Change statt _SelectionChange owT von: Frank
Geschrieben am: 03.02.2012 13:11:34

@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



  

Betrifft: AW: _Change statt _SelectionChange owT von: Rudi Maintaire
Geschrieben am: 03.02.2012 13:28:23

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


Beiträge aus den Excel-Beispielen zum Thema "Zähler einbauen"