Wie finde ich die letzte Zeile eines Druckbereichs?

Question

Ich habe einen Druckbereich, ich muss die letzte Zeile im Druckbereich finden. Jede Hilfe wird geschätzt.

Danke, hier ist mein Set-Druckbereich.

ActiveSheet.PageSetup.PrintArea = "A1:F100" 

Answer 1

Sie können einen Bereich einrichten, dann zählen nur die Zeilen im Bereich:

Sub t() 
Dim printRng As Range, lastRow As Long 

Set printRng = Range("A1:F100") 
ActiveSheet.PageSetup.PrintArea = printRng 
lastRow = printRng.Row + printRng.Rows.Count - 1 
Debug.Print "Last row of print area is: " & lastRow 
End Sub 

Answer 2

Sie diese Funktion nutzen zu können:

Function PrintAreaLastRow() As Long 
    With Range(ActiveSheet.PageSetup.PrintArea) 
     PrintAreaLastRow = .Rows(.Rows.count).row 
    End With 
End Function