letzter Wert
28.09.2005 12:15:34
lexika
kann mir vielleicht jemand sagen wie man den letzten Wert in einer Zelle ermitteln kann un in eine andere schreibt?
hab folgendes probiert
Dim lngLC As Long
Dim strLC As String
Dim strLCAddress As String
lngLC = ActiveSheet.UsedRange.Columns.Count
strLCAddress = ActiveSheet.Columns(lngLC).SpecialCells(xlCellTypeLastCell).Address
letztezeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
A = Cells(letztezeile, 7)
Cells(1, 1) = A
Danke