Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Letzte Zelle mit Wert finden

Letzte Zelle mit Wert finden
Lissa
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Letzte Zelle mit Wert finden mit Find-Methode
22.11.2009 16:11:40
Uwe
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 

Gruß Uwe
Letzte Zelle mit Wert finden mit VERGLEICH
22.11.2009 18:32:19
Erich
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
Anzeige
Super, Danke!!
22.11.2009 22:35:08
Lissa
Hallo,
Vielen Dank,funktioniert super ;-)
Gruß, Lisssa

356 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige