Counter

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Private Sub Worksheet_Calculate() Dim Zelle As Range For Each Zelle In Range("F10:F30") If Zelle.Value = Zelle.Offset(0, 1).Value Then 'Hier den Code einfügen der ablaufen soll, wenn sich nichts gändert hat Else 'hier den Code einfügen, der ablaufen soll, wenn sich der Wert gändert hat Zelle.Offset(0, 1).Value = Zelle.Value 'neuen Wert speichen End If Next End Sub

Private Sub Worksheet_Calculate() Dim Zelle As Range For Each Zelle In Range("F10:F30") If Zelle.Value = Zelle.Offset(0, 1).Value Then 'Hier den Code einfügen der ablaufen soll, wenn sich nichts gändert hat Range("F10:F30").Value = "" Else 'hier den Code einfügen, der ablaufen soll, wenn sich der Wert gändert hat If Zelle.Value = "0" Then Range("F10:F30").Value = Range("F10:F30").Value + 1 Zelle.Offset(0, 1).Value = Zelle.Value 'neuen Wert speichen End If End If Next End Sub

Hallo Karel,
hier nochmals ein Beispiel, wie es gehen könnte. Das Deaktivieren/Aktivieren der Ereignismakros ist erforderlich, damit ggf. das Ändern der Zellwerte in Spalte H und in der Hilfsspalte zum Merken des neuen Eintrags nicht immer wieder die Neuberechnung oder sonstige Aktionen auslöst.
Sie Spalte zum Merken des Rechenergebnisses nuss du ggf. Anpasen.
Gruß
Franz


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

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread