VBA: Lookup variabel gestalten
18.12.2013 18:11:34
WalterK
Ich möchte die letzte Zeile in Spalte A ermitteln die NICHTLEER ist. Das ganze soll variabel funktionieren weil die Tabellen unterschiedlich lang sind. Eine eingetragene Formel soll als LEER betrachtet werden.
Mit folgendem Code habe ich versucht das Problem zu lösen, ohne Erfolg.
Option Explicit
Sub LezteZeileungleichLeer3()
Dim Lz1 As Long
Dim Lz2 As Long
Lz1 = Cells(Rows.Count, 1).End(xlUp).Row
Lz2 = [LOOKUP(2,1/("A1:A" & Lz1""), ROW("A1:A" & Lz1))]
MsgBox Lz1 'richtig kommt bei diesem Beispiel richtigerweise 20 heraus
MsgBox Lz2 'HIER SOLLTE 17 heraus kommen
End Sub
Hier noch ein Beispiel:
https://www.herber.de/bbs/user/88567.xlsm
Besten Dank für die Hilfe und Servus, Walter