AW: Letzte Zelle
07.08.2007 14:38:00
Renee
Hi Mark,
Versuch mal:
Option Explicit
Sub LastCellNotEmpty()
Dim lCCnt As Long
Dim lRCnt As Long
For lRCnt = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 _
To ActiveSheet.UsedRange.Row Step -1
For lCCnt = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1 _
To ActiveSheet.UsedRange.Column Step -1
If Not (IsEmpty(ActiveSheet.Cells(lRCnt, lCCnt))) Then
ActiveSheet.Cells(lRCnt, lCCnt).Select
Exit Sub
End If
Next lCCnt
Next lRCnt
End Sub
Die Definition wirklich die letzte beschriebene Zelle ist ein bisschen schwierig. Wenn z.B. die Formel =WENN(A1=B1;"";"OK") in der Zelle steht, kann z.B. "" = nix in der Zelle stehen, aber die Zelle ist trotzdem beschrieben (nämlich mit der Formel). Obiges Makro findet lässt nur Formatierungen, nicht aber Formeln aus.
Greetz Renee