Hallo,
die Parameter des Find-Befehls werden hier erläutert: https://msdn.microsoft.com/de-de/library/office/ff839746.aspx
-4123 steht für xlFormulas
Man hätte auch den Find-Befehl so ausführen können:
lngRow = .Cells.Find("*", .Cells(1), XlFindLookIn.xlFormulas, xlLookAt.xlPart, xlSearchOrder.xlByRows, xlSearchDirection.xlPrevious, False).Row
lngCol = .Cells.Find("*", .Cells(1), XlFindLookIn.xlFormulas, xlLookAt.xlPart, xlSearchOrder.xlByColumns, xlSearchDirection.xlPrevious, False).Column
oder in der Kurzschreibweise:
lngRow = .Cells.Find("*", .Cells(1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
lngCol = .Cells.Find("*", .Cells(1), xlFormulas, xlPart, xlByColumns, xlPrevious, False).Column
LG, Ben
|