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

Letzte Zeile in Bereich suchen

Letzte Zeile in Bereich suchen
30.07.2007 17:51:25
Andreas
Hallo, Excel-Gemeinde,
ich wende mich mit einem Problem an Euch, an dem ich mir schon eine Weile die Zähne ausbeiße:
Ich möchte im Bereich A5:F504 die letzte Zeile aussuchen lassen , in der Daten eingetragen sind. Dabei kann es vorkommen, dass in der Spalte A einer Zeile nichts steht, aber in anderen Spalten der gleichen Zeile.
Der von mir bisher eingesetzte Befehl
LRow= Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
erkennt aber nur die letzte Zeile, deren Spalte A leer ist.
Kann mir da jemnad weiterhelfen?
Schon vorab besten Dank.
MfG Andreas

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile in Bereich suchen
30.07.2007 17:54:00
Peter
Hallo Andreas,
versuch mal das: MsgBox [A:F].Find("*", SearchDirection:=xlPrevious).Row
Gruß Peter

AW: Letzte Zeile in Bereich suchen
30.07.2007 18:06:01
Andreas
Hallo Peter,
vielen Dank für Deine schnelle Reaktion. Ich hab´das gleich mal ausprobiert.
Deine Befehlszeile gibt aber eine Zahl aus, die in keinem für mich erkennbaren Zusammenhang mit meiner Tabelle steht.
Vielleicht kannst Du bitte mal erklären, was der Befehl in die MsgBox Schreiben soll?
Andreas

AW: Letzte Zeile in Bereich suchen
30.07.2007 22:23:09
Peter
Hallo Andreas,
der Befehl gibt die letzte belegte Zeile (Row) im angegebenen Bereich zurück.
Solltest du allerdings Formeln in Zellen haben, werden die mitgezählt.
Gruß Peter

Anzeige
CurrentRegion
30.07.2007 18:07:38
sergiesam
Hi,
du benötigst hier die aktuelle Tabelle der Zelle A5.
LRow = Range("A5").CurrentRegion.Rows(Range("A5").CurrentRegion.Rows.Count)
lg,
Sam

AW: CurrentRegion
30.07.2007 18:19:00
Andreas
Hallo Sam,
das funktioniert in meiner Tabelle leider nicht.
Dein Befehl setzt bei mir LRow auf 0.
Gruß Andreas

AW: CurrentRegion
30.07.2007 18:22:00
sergiesam
Hi,
kannst du die mappe hochladen?
lg,
Sam

AW: CurrentRegion
30.07.2007 18:41:21
Andreas
Hallo Sam,
die Mappe ist ziemlich umfangreich.
Aber zum Probieren geht schon das:
Du brachst nur mal in die Zellen B1, E1,F1,C3,D3, E3,A4, B4, C4, D4, E4, F4 als Beispiel etwas einzutragen. Dann sollte der Befehl die Zeile 4 als letzte Zeile finden.
MfG
Andreas

Anzeige
AW: UsedRange
30.07.2007 18:55:21
sergiesam
Hi,
in deinem Beispiel sollte folgendes helfen:

Sub LetzteZeile()
Dim LRow As Range
Set LRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count)
LRow.Select
End Sub


lg,
Sam

AW: UsedRange
30.07.2007 19:04:46
Andreas
Hallo Sam,
Vielen Dank! Es Läuft
MfG Andreas

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige