Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1140to1144
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
Inhaltsverzeichnis

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

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

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige