Differenz von zwei Werte ermitteln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc] Sub Test() Dim oZelle As Range For Each oZelle In Range("D3:D" & Cells(Rows.Count, "D").End(xlUp).Row) With oZelle .Offset(0, 1).Value = .Value - .Offset(-1, 0).Value End With Next oZelle End Sub

if Debug.Print ActiveSheet.Shapes.Range(Array("TextBox 3")).TextFrame2.TextRange.Text - Cells(Cells(Rows.Count, "D").End(xlUp).Row, "D").Value > 0 then TextBox3.Value = "Datensatz darf nicht gleich oder weniger wie letzter Eintrag sein" TextBox3.ForeColor = vbRed End If

Code: [Cc] Sub Test() With ActiveSheet.TextBox1 If .Text - Cells(Cells(Rows.Count, "D").End(xlUp).Row, "D").Value > 0 Then .Text = "Datensatz darf nicht gleich oder weniger wie letzter Eintrag sein" .ForeColor = vbRed End If End With End Sub

With Worksheets("TabStromEG").TextBox3 If .Text - Cells(Cells(Rows.Count, "D").End(xlUp).Row, "D").Value > 0 Then .Text = "Datensatz darf nicht gleich oder weniger wie letzter Eintrag sein" .ForeColor = vbRed End If End With

Hallo, ich musste meine Tabelle noch etwas abändern und dementsprechend muss der Code angepasst werden.
Ich habe mich schon daran leider ohne Erfolg versucht.
Die Ursprüngliche Aufgabe war: Ergebnis in Spalte E von vorletzte Zeile - letzte Zeile (Zellbereich D3:D).
Nun muss aber zusätzlich...
a.) wenn in Spalte B "Ja" vorhanden ist diese Berechnung übersprungen werden
b.) wenn in vorletzter Zeile in Spalte B "Ja" und letzter Zeile "Nein" vorhanden ist eine Sonderrechnung mit Zwischenschritt durchführen. Hier Soll das Ergebnis aus zwei addierten Differenzen bestehen. Da dieses schlecht zu beschreiben ist habe ich für alle drei Fälle einen Screen beigefügt - Bilder erzählen mehr als Worte!
Userbild

Würde mich über eine Idee sehr freuen, Gruß Frank.

Hallo FRank,
hier eine Anregung, ein Versuch, den ich aber leider nicht testen konnte.

Code:


[Cc]

Sub Test()
  Dim oZelle As Range
  
  Application.ScreenUpdating = False
  For Each oZelle In Range("D3:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    With oZelle
       If .Offset(0, -2).Value <> "Ja" Then   ' Spalte B
       ElseIf .Offset(-2, -2).Value = "Ja" _
          And .Offset(-1, -2).Value = "Nein" Then
          .Offset(0, 1).Value = .Value - .Offset(-1, 0).Value
       Else
          .Offset(0, 1).Value = (.Value - .Offset(-1, 0).Value) _
                + (.Offset(-2, 0).Value - .Offset(-3, 0).Value)
       End If
   End With
  Next oZelle
  Application.ScreenUpdating = True
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Differenz von zwei Werte ermitteln

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Differenz von zwei Werte ermitteln

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread