Thema: Letzte Zelle mit Wert finden | Herbers Excel-Forum

Hallo,
Ich möchte in Spalte A in allen Zellen die Werte eintragen, aber in leeren Zellen die Formeln stehen lassen.
Es muss nur die letzte Zelle nichtleere Zelle gefunden werden und ab A2 markiert werden.
Ich habe nur Codes, mit denen der letzte Formeleintrag gefunden wird.
Vielen
Danke für jede Hilfe.
Gruß, Larissa

Hallo Larissa,
z.B. so:

Sub AAA()
Dim rngB As Range
On Error Resume Next
Set rngB = Columns("A").Find(What:="*", LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
If Not rngB Is Nothing Then
If rngB.Row < 2 Then
MsgBox "Nix gefunden"
Else
Set rngB = Range(Cells(2, rngB.Column), rngB)
rngB.Select
End If
End If
End Sub

Gruß Uwe

Hi Larissa,
hier eine Umsetzung der Formel von http://www.excelformeln.de/formeln.html?welcher=48

Sub test()
Dim lngZA As Long
On Error Resume Next
lngZA = Evaluate("=LOOKUP(2,1/(A1:A" & Rows.Count - 1 & "<>""""),ROW(A:A))")
On Error GoTo 0
If lngZA > 1 Then Cells(2, 1).Resize(lngZA - 1).Select
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo,
Vielen Dank,funktioniert super ;-)
Gruß, Lisssa