Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
972to976
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
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Letzter Zeile mitangezeigtem Wert.

Letzter Zeile mitangezeigtem Wert.
29.04.2008 07:37:33
Volker
Hallo liebe Excel-Gemeinde.
Ich schaue gern vorbei und habe viele Probleme auch ohne Posten lösen können.
Aber in diesem Fall habe ich das Forum durchsucht sowie bin auch beim googeln nicht fündig geworden.
Folgendes Problem:
Ich habe einen Bereich sagen wir A1:A20, in dem Formeln stehen.
So etwa =WENN(B1=0;"";B1), bis A20...
Sagen wir der letzte Wert steht in A10.
Nun siche ich die Zeile, in der der letzte WERT steht.
Da aber bis A20 noch Formeln enthalten sind bekomme ich mit den mir bekannten VBA-Codes oder Excelformeln immer nur die 20 zurück.
Ich brauche in dem Fall aber 10.
Hoffe mir kann geholfen werden.
Vielen Dank schonmal.
Gruß Volker

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzter Zeile mitangezeigtem Wert.
29.04.2008 08:03:00
Erich
Hallo Volker,
zwei Möglichkeiten:

Option Explicit
Sub Letzte()
Dim rngF As Range
Set rngF = Columns("A:A").Find(What:="*", After:=Cells(1, 1), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False, SearchFormat:=False)
If Not rngF Is Nothing Then MsgBox rngF.Row
'oder
MsgBox Evaluate("=MAX(ROW(A1:A1000)*(A1:A1000""""))")
End Sub

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

AW: Letzter Zeile mitangezeigtem Wert.
29.04.2008 08:08:00
Volker
Hallo ErichG,
ich bin begeistert!
Die 2. Variante geht prima.
Wieder was gelernt.
Vielen Dank.

Anzeige
AW: Letzter Zeile mitangezeigtem Wert.
29.04.2008 08:06:00
Beverly
Hi Volker,
du kannst mit einer Schleife über alle Zellen laufen und prüfen, welche als letzte einen Wert enthält.

Sub letzte_belegte()
Dim loZeile As Long
Dim loLetzte As Long
For loZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row,  _
Rows.Count)
If Cells(loZeile, 1)  "" Then loLetzte = loZeile
Next loZeile
MsgBox loLetzte
End Sub




AW: Letzter Zeile mitangezeigtem Wert.
29.04.2008 08:17:00
Volker
Hallo Beverly,
Deine Version funzt auch.
Hätte nicht gedacht, dass es da sogar mehrere Möglichkeiten gibt zum Ergebnis zu kommen.
Gruß Volker
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige