Letzte beschriebene Zelle
16.02.2007 14:14:39
dreho
eigentlich lässt die MusterTabelle von Hans fast keine Wünsche offen!?
Bloss, warum funktioniert dieses Makro nicht in allen Tabellen? (nur Tabelle1)
Zusätzlich, mein kleiner Verbesserungsvorschlag:
Wenn die letzte beschreibbare Zelle gefunden, eine kleine Frage:
"möchtest Du zu dieser Zelle springen (GeheZu).
Besten Dank für eine evtl. Anpassung
dreho
Option Explicit
Sub LetzteZelle()
RealLastCell(Worksheets("Tabelle1")).Select
End Sub
''Funktion von John Walkenbach
Function RealLastCell(TheSheet As Worksheet) As Range
Dim ExcelLastCell As Range
Dim Row%, Col%, LastRowWithData%, LastColWithData%
Application.ScreenUpdating = False
Set ExcelLastCell = TheSheet.Cells.SpecialCells(xlLastCell)
LastRowWithData = ExcelLastCell.Row
Row = ExcelLastCell.Row
Do While Application.CountA(TheSheet.Rows(Row)) = 0 And Row <> 1
Row = Row - 1
Loop
LastRowWithData = Row
LastColWithData = ExcelLastCell.Column
Col = ExcelLastCell.Column
Do While Application.CountA(TheSheet.Columns(Col)) = 0 And Col <> 1
Col = Col - 1
Loop
LastColWithData = Col
Set RealLastCell = TheSheet.Cells(Row, Col)
End Function