Ich habe versucht ein Makro zuschreiben mit, in dem nach einen neuen Eintrag in der Spalte C die Zellen C16 und C17 mit werten aus der Spalte C befühlet werden.
Konkret soll der letzte Wert in C16 angezeigt werden und in der Zelle C17 der vorvorletzte Eintrag in der Spalte C.
Für Zelle C16 funktioniert das Problemlos, jedoch aktualisiert sich der Wert in Zelle C17 nicht.
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
Fällt jemanden eventuell die Ursache hier für auf ?
Vielen lieben Dank im Voraus!