Eigenständige Werterfassung in den Zeilen C17 und C16

 Private Sub Worksheet_Change(ByVal Target As Range)

    Dim LastRow As Long

    

    Application.EnableEvents = False ' Events vorübergehend deaktivieren, um Endlosschleifen zu vermeiden

    

    ' Überprüfe, ob die Änderung in Spalte C stattgefunden hat

    If Not Intersect(Target, Me.Range("C:C")) Is Nothing Then

        ' Bestimme die letzte Zeile in Spalte C mit Daten

        LastRow = Cells(Rows.Count, "C").End(xlUp).Row

        

        ' Aktualisiere den Wert in Zelle C16 mit dem letzten Wert in Spalte C

        Me.Range("C16").Value = Cells(LastRow, "C").Value

    End If

    

    Application.EnableEvents = True ' Events wieder aktivieren

End Sub



Sub AktualisiereC17()

    Dim LastRow As Long

    

    ' Bestimme die letzte Zeile in Spalte C mit Daten

    LastRow = Cells(Rows.Count, "C").End(xlUp).Row

    

    ' Aktualisiere den Wert in Zelle C17 mit dem 3. letzten Wert in Spalte C

    If LastRow > 1 Then

        Me.Range("C17").Value = Cells(LastRow - 2, "C").Value

    Else

        Me.Range("C17").Value = "" ' Kein 3. letzter Wert verfügbar

    End If

End Sub