Konnte Ihn bisher nicht testen nun wo ich Zeit habe fällt mir auf das mir als letzter Wert "0" angezeigt wird.Obwohl ein Wert von 122,05 der letzte Wert in Tab. Kasse und Spalte C ist.
Kann sich jemand mal diesen Cod anschauen und möglicherweise abändern?
MfG Dieter
Sub letzte_Zelle()
Dim letzteZelle As Long
Dim WertletzteZelle As Single
letzteZelle = Worksheets("Kasse").Cells.Find(What:="*", _
After:=[C65536], SearchDirection:=xlPrevious).Row
WertletzteZelle = Cells(letzteZelle, 3).Value
Range("C5").Select
ActiveCell.Value = WertletzteZelle
End Sub