Hallo,
ich habe ein problem....
in einer tabelle (spalte) werden immer mehr werte eingetragen.... von A16 bis A....
in zelle A7 soll nun automatisch der letzte, also unterste wert der in der entspr. spalte eingetragen ist übernommen werden....
mfg
Jens
Hallo Jens,
Dim letztezelle As Range
Set letztezelle = Cells(Rows.Count, Range("A1").Column).End(xlUp)
Range("A7")=letztezelle.Value
Range("A1") kennzeichnet dabei die spalte, in der du den letzten wert finden willst.
Ein hochzählen der spalten ließe sich z.b. so realisieren:
For s = 65 To 74 'ASCII für buchstaben
Set letztezelle = Cells(Rows.Count, Range(Chr(s) & "1").Column).End(xlUp)
...
Next s
Heiko
AW: letzte Zelle mit eintrag
24.10.2008 12:50:30
Jens
geht das evtl auch irgendwie mit ner Formel....?
mfg
Jens