Zähler bei null werte

Hallo Forum,
Finde meine alte Tread nicht mehr
im Tabelle "Auswertung" werden Daten eigelesen, immer wenn dann ein Artikel Bestand "0" hat muss der Zähler mit 1 erhöht werden. Hintergrund ist dass ich kann sehn wie lange ein bestimmtes Artikel nicht mehr verfügbar ist. Wenn wieder Bestand da ist dann Zählerstand näturlich leer.
Sehr schön ist wenn Daten nur am "Freitag" aktualiseerd werde können.
Problem ist dass der bezug auf zelle über ein Formel kommen.
Als hilfe beispiel:
https://www.herber.de/bbs/user/48911.xls
von Holger kommt dieses MAKRO wass genau dass richtige macht, aber nur bei manuelle eingaben.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim reihe As Long
If Not Intersect(Target, Range("F10:F50")) Is Nothing Then
reihe = Target.Row
If Target.Value = "0" Then
Range("I" & reihe).Value = Range("I" & reihe).Value + 1
Else
Range("I" & reihe).Value = ""
End If
End If
End Sub

von Franz habe ich noch eine ergänzung bekommen


Private Sub Worksheet_Calculate()
Dim Zelle As Range
Application.EnableEvents = False
'Wert in Bereich prüfen
For Each Zelle In Range("F10:F30")
If IsError(Zelle.Value) Then 'SVERWEIS gibt kein Ergebnis
'do nothing
Else
If Zelle.Value  Cells(Zelle.Row, 9).Value Then
'hier den Code einfügen, der ablaufen soll, wenn sich der Wert gändert hat
If Zelle.Value = 0 Then
'Zähler in Spalte H um 1 erhöhen
Cells(Zelle.Row, 8).Value = Cells(Zelle.Row, 8).Value + 1
ElseIf Zelle.Value > 0 Then
'Zähler in Spalte H zurücksetzen (löschen)
Cells(Zelle.Row, 8).ClearContents
End If
'Neues Ergebnis aus Spalte 6 (F) in Spalte 9 (I) merken
Cells(Zelle.Row, 9).Value = Zelle.Value
Else
'hier den Code einfügen, der ablaufen soll, wenn sich der Wert nicht gändert hat
'do nothing
End If
End If
Next
Application.EnableEvents = True
End Sub

Hilfsspalte mit Formel Funktioniert aber hochzählen von nullwerte nicht
Grusse
Karel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Calculate() Dim Zelle As Range Application.EnableEvents = False For Each Zelle In Range("F10:F30") If Zelle.Value = "0" Then Cells(Zelle.Row, 8).Value = Cells(Zelle.Row, 8).Value + 1 Else Cells(Zelle.Row, 8) = "" End If Next Application.EnableEvents = True End Sub

Private Sub Worksheet_Calculate() If Sheets("Bestand-Lag").Cells(1, 1).Value = "6" Then 'If Cells(1, 1) = "6" Then Dim Zelle As Range Application.EnableEvents = False For Each Zelle In Range("F10:F30") If Zelle.Value = "0" Then Cells(Zelle.Row, 8).Value = Cells(Zelle.Row, 8).Value + 1 Else Cells(Zelle.Row, 8) = "" End If Next Application.EnableEvents = True End End If End Sub

Hallo Karel,
du hast Recht. Es erfolgt auch eine Veränderung, wenn du eine andere Zelle änderst.
Leider wird das Calculate-Ereignis vor dem Change-Ereignis ausgelöst, so dass wir uns etwas anderes überlegen müssen.
Man könnte den Bereich, in den du die Daten hineinkopierst, überwachen, ob er Werte enthält oder nicht. Enthält er Werte, soll die Aktion ausgelöst werden, enthält er keine, nicht. Das stößt auf einige Schwierigkeiten, wenn z.B. der Bereich versehentlich nur teilweise gelöscht wurde. Daher einige Fragen:
Ist der Bereich, in den du hineinkopierst, A10 bis A30?
Enthalten die hinzukopierenden Daten auch Leerfelder ohne einen Wert (0 ist ein Wert!)?
Kopierst du manuell oder über ein anderes Makro?
Werden in der Tabelle andere Zellen manuell bearbeitet oder kann man diese sperren?
Gibt es für die Tabelle andere Kopier- oder Bearbeitungsvorgänge, manuell oder durch Makros?
Wir finden schon eine Lösung
Holger

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread