Gefährlicher Code Letzte Zeile/Zelle
04.08.2004 23:21:25
Klaus
habe mal eine grundsätzliche Frage zu einem Code. Folgenden Code habe ich benutzt, um die Zeilennummer der letzten Zelle mit vorhandenen Daten zu ermitteln:
Sub LetzteZelle()
LetzteZelle = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row
End Sub
Allerdings musste ich bei mir feststellen, das der Code nicht mehr wie gewünscht funktioniert, wenn ich in dem Datenbereich einen Filter setze. Der Code zeigt mir dann nicht mehr die letzte Zelle des KOMPLETTEN Datenbereichs, sondern nur noch die letzte Zelle des GEFILTERTEN Bereichs an.
Meine Frage: Habe ich einen Fehler bei mir im System oder kann man diesen Code halt nur in einem bestimmten Bereich benutzen ?
Wenn letzteres zutreffen sollte, so suggerieren viele Internetseiten halt was anderes, nämlich dass man IMMER die letzte Zelle des GANZEN Datenbereichs ermittelt.
Kann sich hierzu vielleicht jemand grundsätzlich äußern ?
Kann man diesen Code bewusst dazu benutzen, die letzte, gefilterte Zeile zu ermitteln ?
Nachdem ich mir leider ungewollt mit dem oberen Code einige Einträge überschrieben habe, benutze ich mittlerweile folgende Variationen, da die sich offensichtlich nicht an einen gefilterten Bereich stören, :
Sub LetzteZelle()
LetzteZeile = ActiveSheet.UsedRange.Rows.Count
'oder
LetzteZeile = ActiveSheet.Range("A65536").End(xlUp).Row
'oder
LetzteZeile = ActiveSheet.Cells(65536, 1).End(xlUp).Row
End Sub
Vielen Dank für Antworten
Gruß Klaus
Anzeige