Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Zeile in best. Bereich ermitteln

Forumthread: Letzte Zeile in best. Bereich ermitteln

Letzte Zeile in best. Bereich ermitteln
03.05.2005 00:59:15
Markus
Hallo,
mit ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row kann man die letzte Zeile in einem Worksheet ermitteln.
Wie aber kann ich die letzte Zeile in einem bestimmten Bereich (z.B. Spalten CL:FU) ermitteln?
ActiveSheet.Columns("CL:FU").Cells(Rows.Count, 1).End(xlUp).Row funktioniert leider nicht...
Dankeschön!
Gruß,
Markus
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile in best. Bereich ermitteln
03.05.2005 01:55:50
Hubert 

Sub marin()
Dim lR As Long
lR = [CL:FU].SpecialCells(11).Row
MsgBox lR
End Sub

mfg Hubert
AW: Letzte Zeile in best. Bereich ermitteln
03.05.2005 11:16:27
Markus
Hallo Hubert,
das funktiniert bei mir leider nicht. lR gibt mir die (aller-)letzte Zeile zurück, unabhängig vom festgelegten Bereich (CL:FU).
Was mache ich falsch?
Dankeschön!
Anzeige
AW: Letzte Zeile in best. Bereich ermitteln
03.05.2005 12:22:15
Boris
Hi Markus,

Sub letzte_benutzte_zeile_im_bereich()
MsgBox Range("CL:FU").Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
End Sub

Grüße Boris
AW: Letzte Zeile in best. Bereich ermitteln
03.05.2005 12:54:56
Markus
Hallo Boris,
das funktioniert bestens, dankeschön!
Gruß,
Markus
;

Forumthreads zu verwandten Themen

Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Anzeige
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 Beiträge
Anzeige
Wert der letzten Zeile in Bereich SVerweis
Elmar

Hallo,
vielleicht kann mir jemand helfen, wie ich in VBA dieser Formel ==ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Haupttabelle!R1C1:R65000C7,2,FALSE)"== beibringe, die 65000 durch die letzte belegte Zeile in einer Tabelle zu ersetzen. Die Abfrage mache ich mit ***iRow = Cells(Rows.Count, 3...
28.10.2008 20:45:00
Thread-ID: 1020084
5 Beiträge
Anzeige
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
letzte benutzte Zeile eines Namens-Bereichs
Klaus

Hallo Forum,
wie bringe ich die letzte benutzte Zeile eines benannten Bereichs in eine Variable?
Beispiel:
Bereichsname = Testfeld
Name Testfeld besteht aus Text, Formeln und Datümern
Formeln dürfen NICHT gefunden werden
Mit
LAST = Cells.Find(What:="*", After:=[A1],...
23.11.2008 19:43:00
Thread-ID: 1027146
11 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Anzeige
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Hilfe zu letzter zeile (xlUp) aus Bereich
chris

Hallo VBA experten,
habe schon versucht im Forum zu suchen finde aber nichts passendes.
Ich benötige die letzte zeile aus einem Bereich.
Die letzte zeile also Zelle einer Spalte ist kein Problem.Das mache ich so:
Sub neu() MsgBox ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row...
12.02.2009 10:53:00
Thread-ID: 1049939
5 Beiträge
letzte Zeile finden
Wolfgang

Guten Tag!
In einer Spalte kommen Zeile für Zeile Werte dazu. Wie kann ich den letzten Wert mittels einer Formel finden und auf ein anderes Tabellenblatt übertragen? (Wenn möglich, ohne Makro.)
25.02.2009 11:24:31
Thread-ID: 1053810
3 Beiträge
letzte zeile finden
Wolfgang

Danke für die Web-Adresse (http://www.excelformeln.de/formeln.html?welcher=50)
von Sepp. Hat super funktioniert! Grüße Wolfgang.
25.02.2009 12:25:50
Thread-ID: 1053844
2 Beiträge
letzte Zeile ermitteln - nebenstehende Spalten mar
Erwin

Hallo Spezialisten,
ich habe eine Tabelle, in der immer in Spalte F unterschiedlich viele Zeilen gefüllt sind.
Spalte G + H sind leer und müssen durch Bearbeiter abgearbeitet werden.
Ich möchte nun Spalte G + H mit einer Farbe (.ColorIndex = 36) "verschönern", damit die User genau w...
02.03.2009 10:03:42
Thread-ID: 1055434
7 Beiträge
letzte freie Zeile ermitteln
Kai

Hi,
wie kann ich denn die erste freie Zeile in meinem Sheet ermitteln ? Seither habe ich das so gemacht, dass ich nur B geprüft habe:
lngRow = Cells(Rows.Count, "B").End(xlUp).Row
das geht aber nicht mehr, da es vorkommen kann das eine andere Spalte weiter runter befüllt ist.
wi...
25.03.2009 11:36:06
Thread-ID: 1063680
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Letzte Zeile in einem bestimmten Bereich mit VBA ermitteln

Schritt-für-Schritt-Anleitung

Um die letzte Zeile in einem bestimmten Bereich in Excel VBA zu ermitteln, kannst Du folgende Schritte befolgen:

  1. Öffne den Visual Basic for Applications (VBA) Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Projekt-Explorer mit der rechten Maustaste auf dein Projekt und wähle Einfügen -> Modul.

  3. Gib den folgenden Code ein:

    Sub letzte_zeile_im_bereich()
   Dim letzteZeile As Long
   letzteZeile = Range("CL:FU").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
   MsgBox "Die letzte Zeile im Bereich CL:FU ist: " & letzteZeile
End Sub
    • Dieser Code sucht die letzte Zeile mit Inhalt im Bereich CL:FU und zeigt das Ergebnis in einer MessageBox an.

  4. Führe das Makro aus:

    • Drücke F5, um das Makro auszuführen und die letzte Zeile anzuzeigen.

Häufige Fehler und Lösungen

  • Fehler: Das Makro gibt die falsche letzte Zeile zurück.

    • Lösung: Stelle sicher, dass der angegebene Bereich korrekt ist und tatsächlich Daten enthält. Verwende die Find-Methode, um nach der letzten Zeile mit Inhalt zu suchen.

  • Fehler: Runtime Error 1004: Unable to find the data.

    • Lösung: Dieser Fehler tritt auf, wenn der angegebene Bereich leer ist. Vergewissere dich, dass im Bereich CL:FU Daten vorhanden sind.

Alternative Methoden

Eine Alternative zur Verwendung der Find-Methode ist die Verwendung der UsedRange-Eigenschaft. Hier ist ein Beispiel:

Sub letzte_zeile_mit_usedrange()
    Dim letzteZeile As Long
    letzteZeile = ActiveSheet.UsedRange.Rows.Count
    MsgBox "Die letzte Zeile im benutzten Bereich ist: " & letzteZeile
End Sub

Diese Methode ermittelt die letzte Zeile basierend auf dem gesamten benutzten Bereich des Arbeitsblattes.

Praktische Beispiele

  1. Ermitteln der letzten Zeile in einem bestimmten Bereich:

    Sub ermitteln_letzte_zeile()
   Dim letzteZeile As Long
   letzteZeile = Range("A1:A100").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
   MsgBox "Die letzte Zeile in A1:A100 ist: " & letzteZeile
End Sub

  2. Ermitteln der letzten Zeile mit Inhalt in mehreren Spalten:

    Sub letzte_zeile_mehrere_spalten()
   Dim letzteZeile As Long
   letzteZeile = Range("B:D").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
   MsgBox "Die letzte Zeile in den Spalten B bis D ist: " & letzteZeile
End Sub

Tipps für Profis

  • Verwende die xlUp-Konstante, um die letzte Zeile effizient zu ermitteln:

    Sub letzte_zeile_xlup()
  Dim letzteZeile As Long
  letzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
  MsgBox "Die letzte Zeile in Spalte A ist: " & letzteZeile
End Sub

  • Achte darauf, dass beim Arbeiten mit großen Datenmengen die Performance der Makros optimiert wird.

FAQ: Häufige Fragen

1. Wie finde ich die letzte Zeile in einem bestimmten Bereich? Du kannst die Find-Methode verwenden, um die letzte Zeile mit Inhalt in einem festgelegten Bereich zu ermitteln.

2. Gibt es eine Möglichkeit, die letzte Zeile ohne VBA zu finden? Ja, du kannst die Funktion =MAX(WENN(BEREICH<>"";ZEILE(BEREICH))) in einer Array-Formel verwenden (mit STRG + SHIFT + ENTER), um die letzte Zeile mit Inhalt zu finden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige