Datum

Titel

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

404to408

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Letzte Zeile ermitteln

Forumthread: Letzte Zeile ermitteln
13 Beiträge zu diesem Forumthread
Anzeige
312 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

lars

Hallo Excel Pros,
ich würde gerne über VBA die letzte beschriebene Zeile eines Bereiches ermitteln. Danach kommen nur noch leere Zeilen.
Vielen Dank für eure Hilfe
gruß
Lars

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Letzte Zeile ermitteln

Mike
SpecialCells sind immer so unzuverlässige...

Boris
Schönen Dank

Lars
AW: Dennoch: Boris hat Recht!

Mike
AW: SpecialCells sind immer so unzuverlässige...

Bert
AW: SpecialCells sind immer so unzuverlässige...

Boris
AW: SpecialCells sind immer so unzuverlässige...

Bert
AW: SpecialCells sind immer so unzuverlässige...

Babak
Was ist denn für dich der letzte Eintrag?

Boris
AW: Was ist denn für dich der letzte Eintrag?

Babak
Dann so (letzten Eintrag finden und löschen):

Boris
AW: Dann so (letzten Eintrag finden und löschen):

Babak
Danke - geschlossen...oT

Boris

AW: Letzte Zeile ermitteln

Mike

Hi,
so müsste es gehen:
MsgBox(Cells.SpecialCells(xlLastCell).Row
Gruß
Mike

SpecialCells sind immer so unzuverlässige...

Boris

Hi Mike,
...Kandidaten - ich würde daher die Find-Methode vorschlagen:


Sub letzte()
MsgBox Cells.Find("*", searchdirection:=xlPrevious).Row
End Sub

Grüße Boris

Schönen Dank

Lars

das klappt(und zwar mit beiden Lösungsansätzen ;))
gruß,
Lars

AW: Dennoch: Boris hat Recht!

Mike

Gruß
Mike

AW: SpecialCells sind immer so unzuverlässige...

Bert

Find greift aber nicht, wenn Objekt im Blatt sind!
Bert

AW: SpecialCells sind immer so unzuverlässige...

Boris

Hi Bert,
...aber lösch den Kommentar aus Zeile 65000 doch mal wieder - mit SpecialCells bleibt es aber dann bei 65000.
Was wäre denn der Ausweg?
Grüße Boris

AW: SpecialCells sind immer so unzuverlässige...

Bert

Es ist halt nicht mit einem Einzeiler getan. Abfragen, ob Comments
oder DrawingObjects vorhanden sind und wenn ja, die Parent.Address
bei Comments und die BottomRightCell bei anderen DrawingObjects
abfragen. Dann mit der mit Find ermittelten Zeile vergleichen.
Bert

AW: SpecialCells sind immer so unzuverlässige...

Babak

Hi Boris,
wie könnte ich den letzten Eintrag im Bereich B8:J38 finden und diesen anschließend löschen?

Was ist denn für dich der letzte Eintrag?

Boris

Hi,
...ist J8 der letzte oder doch eher B38? Will sagen: geht es spaltenweise oder zeilenweise?
Grüße Boris

AW: Was ist denn für dich der letzte Eintrag?

Babak

b38 ist der letzte (also von oben nach unten). dann sollen die daten von b38 bis j38 gelöscht werden, wenn in b38 tatsäschlich der letzte datensatz stehen würde.

Dann so (letzten Eintrag finden und löschen):

Boris

Hi Babak,
Option Explicit


Sub letzten_loeschen()
Dim lRow As Long
On Error Resume Next 'Falls Bereich leer ist
lRow = Range("B8:J38").Find("*", searchdirection:=xlPrevious).Row
Range("B" & lRow, "J" & lRow).ClearContents
End Sub

Grüße Boris

AW: Dann so (letzten Eintrag finden und löschen):

Babak

Hi Boris,
vielen Dank, klappt super!!!!
Gruß
Babak

Danke - geschlossen...oT

Boris