Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Letzte Zeile

Letzte Zeile
11.02.2007 17:04:41
Daniel
Hallo,
ich ermittle im Augenblick den letzten Wert meiner Spalte A mit folgendem Code:
Sheets("Tabelle3").Range("A65536").End(xlUp).Row
Jetzt will ich das ganze erweitern, dass mir der letzte Wert im Bereich der Spalten A bis E ermittelt wird.
Leider funktioniert dies nicht:
Sheets("Tabelle3").Range("A65536:E65536").End(xlUp).Row
Gruß,
Daniel
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile
11.02.2007 17:24:27
R@iner

Sub letzte()
Range("A:E").Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
End Sub

Gruss Rainer
Nachtrag
11.02.2007 17:40:16
Rainer
So ist das Makro natürlich Nonsens.
Aber so:

Sub letzte()
lastrow = Range("A:E").Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
MsgBox lastrow
End Sub

Anzeige
AW: Letzte Zeile
11.02.2007 17:28:44
Beni
Hallo Daniel,
ersetze das GRÖSSER durch das Grösserzeichen, Html hat gemotzt.
Gruss Beni
For s = 1 To 5
lz = Sheets("Tabelle3").Cells(65536, s).End(xlUp).Row
If lz GRÖSSER lr Then lz = lz Else lz = lr
lr = lz
Next s
AW: Letzte Zeile
11.02.2007 18:34:29
Daniel
Danke für die Hilfe!
AW: Letzte Zeile
11.02.2007 18:06:57
Mischa
schon mal versucht:
x = activesheet.usedrange.rows.count
y = activesheet.usedrange.columns.count
?
Mischa Richter
www.exceltreffen.de
Anzeige
AW: Letzte Zeile
11.02.2007 18:41:59
Horst
Hi,
UsedRange ist einfach nicht zuverlässig genug.
mfg Horst
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige