VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Letzte Zelle mit Inhalt suchen

Gruppe

Allgemein

Bereich

Suchen

Thema

Letzte Zelle mit Inhalt suchen

Problem

Mit der Tastenkombination ENDE+Pos1 wird nicht immer die real letzte Zelle markiert. Wie kann ich das Problem beheben?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen