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

Forumthread: Letzte belegte Zelle + 1

Letzte belegte Zelle + 1
Walter
Hallo zusammen,
habe mal diese Makrozeilen erhalten.
Dim rngFind As Range
Set rngFind = Sheets("Haus").Columns(4).Find(What:="Whg1")
ActiveSheet.Cells(rngFind.Row, 1).Select
Ich möchte das jetzt ändern, komm leider nicht drauf auf such die letzte belegte Zelle
+ 1 darunter.
Also letzte belegte Spalte ist A 216 dann soll die Zelle A217 aktiviert werden.
gruß Walter MB
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Letzte belegte Zelle + 1
03.03.2010 15:26:55
Henrik
Hallo Walter,
versuch mal

with worksheets("Haus")
letzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(letzteZeile+1, 1).Select
end with

Henrik
Danke Henrik --))
03.03.2010 15:53:56
Walter
Hallo Hendrik,
funktioniert einwandfrei,
mfg Walter mb
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige