Herbers Excel-Forum - das Archiv

letzte gefüllte Zelle suchen

Bild

Betrifft: letzte gefüllte Zelle suchen
von: Carola

Geschrieben am: 17.12.2006 21:25:06
Hallo zusammen
Ich benötige ein Makro das den letzten Zahleneintrag in den Zellen P10 bis U375 ermittelt ( es sind nicht immer alle Zellen gefüllt ) Nach der Ermittlung der letzten gefüllten Zelle die z.Bsp. in Zeile 225 ist, muss das Datum aus Zeile 225 Spalte C in C 2 eingetragen werden. ( C10 bis C375 steht das Datum )
Hoffe jemand versteht was ich brauche.
Vielen Dank für eure Hilfe
Bild

Betrifft: AW: letzte gefüllte Zelle suchen
von: chris b
Geschrieben am: 17.12.2006 21:29:13
Hi carola,
die letzte benutzte Zeile bekommst du so raus.
Activesheet.cells(rows.count,1).end(xlup).row
'Das ist die letzte Zeile aus Spalte A
gruß Christian
Bild

Betrifft: AW: letzte gefüllte Zelle suchen
von: Carola
Geschrieben am: 17.12.2006 21:36:30
Hallo Cristian
Es geht um die Zellen P10 bis U375 in denen ich die letzte gefüllte Zelle ermitteln muss. Es stehen in den anderen Zellen schon Werte ( in Spalte A bis O )
Carola
Bild

Betrifft: AW: letzte gefüllte Zelle suchen
von: chris b

Geschrieben am: 17.12.2006 21:39:44
Hallo Carola,
Spalte P ist 16
da müsste der Code so aussehen
Activesheet.cells(rows.count,16).end(xlup).row
könntest ja so abfragen:
spP = Activesheet.cells(rows.count,16).end(xlup).row
spO = Activesheet.cells(rows.count,17).end(xlup).row
usw..
Bild

Betrifft: AW: letzte gefüllte Zelle suchen
von: Daniel Eisert

Geschrieben am: 17.12.2006 21:57:47
Wenn die Spalten unterschiedlich gefüllt sein können, dann mußt du jede einzelne prüfen und den Max-Wert raussuchen, also etwa so:
with cells(65536,16)
größteZeile = worksheetfunction.max(.end(xlup).row, .offset(0,1),end(xlup).row, .offset(0,2).end(xlup).row, ...)
end with
Gruß, Daniel
Bild

Betrifft: AW: letzte gefüllte Zelle suchen
von: Carola
Geschrieben am: 17.12.2006 22:25:06
https://www.herber.de/bbs/user/39074.xls
sorry da ich euch nicht folgen kann habe ich mal die datei hochgeladen
Vielen Dank Euch Helfern hier im Chat
Carola
Bild

Betrifft: AW: letzte gefüllte Zelle suchen
von: Carola

Geschrieben am: 18.12.2006 20:49:27
Hallo Leute vielen Dank
Ich bin aber echt zu blöd um diese Funktion zu starten.
Habe auch Funktion in Sub geändert aber da macht es mir auch einen Fehler. Bei Function hab ich keine Ahnung wie man die startet ??
Hatte gestern mal die Tabelle hochgeladen - wenn mal jemand schauen könnte
Danke noch mal an alle hier
https://www.herber.de/bbs/user/39074.xls
Bild

Betrifft: AW: letzte gefüllte Zelle suchen
von: Erich G.
Geschrieben am: 18.12.2006 21:08:45
Hallo Carola,
hier hab ichs einbgebaut:
https://www.herber.de/bbs/user/39093.xls
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Bild

Betrifft: Danke Erich
von: Carola
Geschrieben am: 18.12.2006 21:52:28
Vielen Dank Erich
Gruss Carola
Bild

Betrifft: AW: letzte gefüllte Zelle suchen
von: Uduuh

Geschrieben am: 17.12.2006 22:38:32
Hallo,
in ein allgemeines Modul:
Function DatumLetzteZelle()
Dim letzteZelle As Range
Application.Volatile
Set letzteZelle = Range("p10:u375").Find(what:="*", searchdirectioN:=xlPrevious)
Datumletztezelle = Cells(letzteZelle.Row, 3)
End Function

in C2: =DatumLetzteZelle()
Gruß aus’m Pott
Udo

Bild

Betrifft: AW: letzte gefüllte Zelle suchen
von: Carola
Geschrieben am: 17.12.2006 23:07:15
werde es morgen probieren da ich nun ins bettchen muss !!
Danke Euch allen
Carola
Bild

Betrifft: AW: letzte gefüllte Zelle suchen
von: Erich G.

Geschrieben am: 17.12.2006 23:35:03
Hallo Carola und Udo,
eine kleine Ergänzung, die vielleicht Rätselraten über evtl. falsche Ergebnisse erspart:
Function DatumLetzteZelle()
Dim letzteZelle As Range
Application.Volatile
Set letzteZelle = Range("p10:u375").Find(what:="*", SearchOrder:=xlByRows, _
searchdirectioN:=xlPrevious)
DatumLetzteZelle = Cells(letzteZelle.Row, 3)
End Function
Lässt man den Parameter SearchOrder weg, kann das Ergebnis falsch sein, wenn vorher zufällig "Suchen in Spalten" ausgewählt war.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
 Bild
Excel-Beispiele zum Thema "letzte gefüllte Zelle suchen "
Letzte nichtleere Zelle ermitteln Letzter Wert in Zeile
Letztes Speicherdatum eintragen Letzter Wert aus einem Bereich
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter Formel bis zur letzten Zeile der Nebenspalte kopieren
Letzte Zelle mit Inhalt suchen Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe
Letzte Verknüpfung in einem Tabellenblatt löschen Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen