Werte einfrieren

Private Sub Worksheet_Change(ByVal Target As Range) Dim R% If Not Intersect(Target, Range("A:M")) Is Nothing Then R = Target.Row If Abs(Cells(R, 8) - Cells(R, 12) > Cells(R, 22)) Then Cells(R, 22) = Cells(R, 8) - Cells(R, 12) ElseIf (Cells(R, 12) - Cells(R, 8) > Cells(R, 22)) Then Cells(R, 22) = Cells(R, 12) - Cells(R, 8) End If End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
grundsätzlich sehe ich 2Möglichkeiten:
1. Ereignis Worksheet_Calculate auswerten
Dazu müsse die Feeddaten im Tabellenblatt eine Berechnung auslösen.
ggf. in einer beliebigen Zelle die Formel =SUMME(H:H)+SUMME(L:L) einfügen.

Private Sub Worksheet_Calculate()
Dim R As Long, Zeile_L As Long
Application.EnableEvents = False
'letzte Zeile mit Inhalt in Spalten H bzw. L
Zeile_L = Application.WorksheetFunction.Max(Cells(Rows.Count, 8).End(xlUp).Row, _
Cells(Rows.Count, 12).End(xlUp).Row)
For R = 2 To Zeile_L
If Abs(Cells(R, 8) - Cells(R, 12) > Cells(R, 22)) Then
Cells(R, 22) = Cells(R, 8) - Cells(R, 12)
ElseIf (Cells(R, 12) - Cells(R, 8) > Cells(R, 22)) Then
Cells(R, 22) = Cells(R, 12) - Cells(R, 8)
End If
Next
Application.EnableEvents = True
End Sub

2. OnTime-Ereignis
Per OnTime-Makro werden in regeläßigen Abständen (>=1 Sekunde)
Die Werte in Spalten H und L überprüft und ggf. Spalte V geändert.
Dies ist aber wesentlich komplizierter in der Umsetzung, da
das Makro irgendwan gestartet werden muss (zum Beispiel beim Öffnen der Datei)
das Makro vor dem Schliessen der Datei beendet werden muss.
das Makro in einem allgemeinen Modul der Datei plaziert werden muss
die Referenzen zu dem Tabellenblatt/Zellen alle genau gesetzt werden müssen.
Gruß
Franz

Hallo Michael,
wahrscheinlich hast du versehentlich oder bei Makro-Abbruch die Ereignis-Makros deaktiviert bzw. nicht wieder aktiviert.
Entweder Excel neu starten oder mit einem der beiden folgenden Makros die Ereignismakros gezielt deaktivieren bzw. aktiveren.
Deaktivieren ist hilfreich wenn man die Ausführung zeitweise (z.B. bei größeren Änderungen an den Daten) unterbinden möchte.
Die Makros kopierst du am Besten in ein allgemeines Modul deiner perönlichen Makroarbeitsmappe. Dann hast du sie immer verfügbar.
Gruß
Franz

Sub Anw_Events_Ein()
'Ereignismakros aktivieren
Application.EnableEvents = True
End Sub
Sub Anw_Events_Aus()
'Ereignismakros deaktivieren
Application.EnableEvents = False
End Sub

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread