Sub
Test()
MsgBox
"letzte Zeile aktives Arbeitsblat : "
& ActiveLrw
MsgBox
"letzte Zeile Tabelle2 : "
& SheetLrw(
"Tabelle2"
)
MsgBox
"letzte Zeile Mappe2, Tabelle1 : "
& BookSheetLrw(
"Mappe2"
,
"Tabelle1"
)
End
Sub
Function
ActiveLrw()
As
Long
ActiveLrw = Cells.Find(
"*"
, Cells(1), -4123, 2, 1, 2,
False
).Row
End
Function
Function
SheetLrw(Nm
As
String
)
As
Long
With
Sheets(Nm)
SheetLrw = .Cells.Find(
"*"
, Cells(1), -4123, 2, 1, 2,
False
).Row
End
With
End
Function
Function
BookSheetLrw(Bk
As
String
, Nm
As
String
)
As
Long
With
Workbooks(Bk).Sheets(Nm)
BookSheetLrw = .Cells.Find(
"*"
, Cells(1), -4123, 2, 1, 2,
False
).Row
End
With
End
Function