Verweis auf benannte Spalte in Excel VBA

Question

Ich habe eine Tabellenkalkulation, wo alle der Spalte A ist ein benannter Bereich namens "Michael".

Ich bekomme die Zeilennummer der letzten belegten Zeile.

Dieser Code funktioniert: LRow = Worksheets("Head").Range("A" & Rows.Count).End(xlUp).Row

Dieser Code funktioniert nicht: mit dem Spaltennamen „Michael“ und nicht der Standard-A LRow = Worksheets("Head").Range("Michael" & Rows.Count).End(xlUp).Row

Wie bekomme ich das mit mir zu arbeiten?

Answer 1

Sie in die Spalte und Zeilenanzahl der Bereich innerhalb der Zellen beziehen würde() Kreisobjekt:

LRow = Cells(Range("micheal").Rows.count, Range("micheal").Column).End(xlUp).Row 

Answer 2

Find Mit anstatt xlUp empfohlen. Beide Ansätze sind unter

Dim rng1 As Range 
Dim lRow As Long 

'Option 1 
lRow = Cells(Rows.Count, Range("Michael").Column).End(xlUp).Row 

'Option 2 
Set rng1 = Range("Michael").Find("*", Range("Michael")(1), , , xlPrevious) 
If Not rng1 Is Nothing Then MsgBox rng1.Row 

dargestellt