VBA - vorletzte Zeile finden

Question

Halli Hallo!

Vielleicht kann mir jemand helfen.
Ich habe einen Datenbereich der zum Teil Leerzeilen enthält.
Nunmehr möchte ich gerne die vorletzte ausgefüllte Zeile in z. B. der Spalte H finden.

Hat jemand eine Idee wie ich das bewerkstelligen kann?

Ciao

Tom

Answer 1

hallo,

versuch es mal damit

vorletzteZeile = Range("A65536").End(xlUp).Row-1



Gruß

Helmut

Answer 2

Hallo Tom,

mit der Befehlszeile

Range("H65536").End(xlUp).Row -1
findest Du die vorletzte ausgefüllt Zelle Spalte H.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 3

Hallo,

natürlich muss es

Range("H65536").End(xlUp).Row

heissen

Gruß

Helmut

Answer 4

Hallo @all.

Range("H65536").End(xlUp).Row -1

... wollte ich auch gerade posten, aber dieser Befehl gibt immer
die vorletzte Zeilennummer zurück, auch wenn die Zelle leer ist.

In VBA ist da wahrscheinlich ohne Schleife nichts zu machen.

Alternativ eine Matrixformel

=KKLEINSTE(WENN(H1:H100<>"";ZEILE(1:100));ANZAHL2(H:H)-
1)

Die Bezüge müssten angepasst werden.

Gruß
Rainer

Answer 5

Hallo,

eine weitere Lösung

vorletzteZeile = Range("H" & Range("H65536").End(xlUp).Row - 1).End(xlUp).Row

Gruß

Helmut

Answer 6

hi all ^^

fuer unsere begeisterten vb user erstmal das

statt

65536

sollte korrigiert werde zu

rows.count

ergaenzend dazu

Sub makro01()
Rem letzte zeile eines sheets
a = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Rem letze spalte eines sheets
b = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Rem letzte zeile einer spalte
c = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Rem letzte spalte einer zeile
d = ActiveSheet.Range("3:3").End(xlToRight).Column
End Sub

gruss nighty

Answer 7

Hallo,

mit @nighty Ergänzung

vorletzteZeile = Range("H" & Range("H" & Rows.Count).End(xlUp).Row - 1).End(xlUp).Row

hast du aber nicht viel gewonnen

Gruß

Helmut

Answer 8

Hi!

Ups, da habe ich wohl unerwarteter Weise etwas "ausgelöst".
DANKE an alle, die sich an der Lösung beteiligt haben.

Die Antwort 5 liefter genau das von mir gesuchte Ergebnis.

Wünsche noch einen angenehmen Tag.

Tom