AW: letzte benutzte Zeile eines Namens-Bereichs
24.11.2008 11:56:00
JogyB
Hi.
Gerd hatte einen kleinen Fehler eingebaut, außerdem geht die Bestimmung von rngA einfacher.
Sub test()
Dim rngA As Range
Dim rngB As Range
Dim lngRowLast As Long
Set rngA = Range("Mein_Bereich").SpecialCells(xlCellTypeConstants)
If Not rngA Is Nothing Then _
Set rngB = rngA.Find(what:="*", After:=rngA.Cells(1), SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious)
If Not rngB Is Nothing Then lngRowLast = rngB.Row
End Sub
So funktioniert es und das wesentlich schneller als die andere Methode, die kann bei großen Bereichen recht lange dauern.
Am besten hätte mir natürlich noch rngA.SpecialCells(xlCellTypeLastCell).Row zur Bestimmung der Zeile gefallen, aber das nimmt immer die letzte Zelle des Arbeitsblattes.
Gruss, Jogy