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

letzte nicht leere Zelle suchen

Forumthread: letzte nicht leere Zelle suchen

letzte nicht leere Zelle suchen
29.12.2003 14:13:41
Wolfgang
Hallo,

Habe da noch ein Problem, an dem ich schon lange herum bastele.

Ich möchte die letzte nicht leere Zelle in einer Spalte suchen.
Dieses Problem habe ich auch hinbekommen, mit folgender Matrixformel.

{=INDEX($J8:J$22;VERGLEICH(WAHR;WENN(ISTLEER($J8:J$22);$J8:J$22);1);0)}

allerdings klappt die Formel nur wenn in den Zellen die ausgewertet werden sollen keine Formeln stehen

Nun möchte ich diese Auswertung in einem Bereich einsetzen in dem diese Zellen Formeln beinhalten.
Folgende Formel steht z.B. in einer dieser Zellen

=WENN(H7="";"";WENN(H8="";REST(G8-H7;1);REST(H8-H7;1)))

Meine letzte nicht leere Zelle bleibt dann leider immer LEER.

Wie kann ich dieses Problem umgehen.

Schon mal im voraus Danke für Eure Hilfe

Gruß Wolfgang
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: letzte nicht leere Zelle suchen
29.12.2003 14:58:48
DieterB
Hallo Wolfgang,
mit folgenden VBA-Code:


Sub LetzteZelle()
Sheets("Tabellenname").Activate
Range("H65536").End(xlUp).OffSet(1, 0).Select
MsgBox "Die erste freie Zelle in Spalte H lautet: " & _
ActiveCell.Adress
End Sub


Gruß

DieterB
Anzeige
AW: letzte nicht leere Zelle suchen
01.01.2004 19:52:26
Wolfgang
Danke für deine Antwort.

Ich habe das Makro in ein Modul eingefügt und den Tabellenname entsprechend geändert.
Muß ich die "ActiveCell.Adress" auch anpassen, habe es versucht klappt aber nicht.

Ich möchte, das der ermittelte Wert in einer Zelle herausgegeben wird, ist dies bei deinem Makro der Fall?

Gruß Wolfgang
Anzeige
AW: letzte nicht leere Zelle suchen
01.01.2004 20:24:26
DieterB
Hallo Wolfgang,
nein, hier wird nur die letzte Zeile ermittelt und in einer Msgbox ausgegeben.
Ich hoffe folgender Code funzt bei Dir (bei mir tut er es):


Sub KopiereWert()
Sheets("Tabellenname").Activate
'letzte leere Zeile in Spalte "D"
Range("U65536").End(xlUp).Select
'Inhalt in Zelle "E5" einschreiben
Range("E5").Value = Selection
End Sub


Gruß

DieterB
Anzeige
AW: letzte nicht leere Zelle suchen
01.01.2004 20:35:48
Wolfgang
Hallo Dieter,

Danke das du dich noch einmal gemeldet hast.

Das Makro klappt einwandfrei. DANKE

Kann man es auch so machen das, der Wert automatisch übernommen wird.
Sonst müsste ich ja immer das Makro ausführen wenn sich die Werte ändern.

Hast du noch einen Tipp ??

Gruß Wolfgang
Anzeige
AW: letzte nicht leere Zelle suchen
01.01.2004 20:38:13
DieterB
Hallo Wolfgang,

schau in der Recherche, oder stelle diese Frage nochmal ganz expliziet.
Ich hab gehört, dass es funktionieren soll, wüßte jatzt aber nicht wie.

Gruß

DieterB
Danke, hat noch jemand einen Tipp
01.01.2004 20:50:00
Wolfgang
Hallo Dieter,

Danke für deine Hilfe, damit kann ich ja schon mal leben.

Werde diese Frage noch mal einstellen.

Gruß Wolfgang
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Letzte nicht leere Zelle in Excel finden


Schritt-für-Schritt-Anleitung

Um die letzte nicht leere Zelle in einer Spalte zu finden, kannst du die folgende VBA-Methode verwenden. Dies ist besonders nützlich, wenn deine Zellen Formeln enthalten und du die letzte nicht leere Zelle mit einem Makro ermitteln möchtest.

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere und füge den folgenden Code in das Modul ein:

    Sub LetzteNichtLeereZelle()
       Dim ws As Worksheet
       Set ws = ThisWorkbook.Sheets("Tabellenname") ' Tabellenname anpassen
       Dim letzteZelle As Range
    
       ' Suche die letzte nicht leere Zelle in Spalte J
       Set letzteZelle = ws.Cells(ws.Rows.Count, "J").End(xlUp)
    
       ' Ausgabe in einer bestimmten Zelle (z.B. E5)
       ws.Range("E5").Value = letzteZelle.Value
    End Sub
  4. Passe den Tabellenname und die Spalte (hier "J") nach Bedarf an.

  5. Schließe den VBA-Editor und führe das Makro aus, um die letzte nicht leere Zelle zu finden und ihren Wert in Zelle E5 zu speichern.


Häufige Fehler und Lösungen

  • Fehler: Das Makro gibt einen Fehler aus oder findet die falsche Zelle.

    • Lösung: Überprüfe, ob der Tabellenname korrekt ist und ob die angegebene Spalte tatsächlich Daten enthält.
  • Fehler: Die Ausgabe wird nicht in der gewünschten Zelle angezeigt.

    • Lösung: Stelle sicher, dass du die richtige Zielzelle in ws.Range("E5") angegeben hast.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch eine Matrixformel verwenden, um die letzte nicht leere Zelle in Excel zu finden. Diese Methode ist jedoch weniger flexibel, wenn Formeln in den Zellen stehen.

=INDEX($J$8:J$22;VERGLEICH(WAHR;WENN(ISTLEER($J$8:J$22);$J$8:J$22);1);0)

Beachte, dass diese Formel nur funktioniert, wenn die Zellen keine Formeln enthalten.


Praktische Beispiele

  1. Beispiel mit VBA: Wenn du den Wert der letzten nicht leeren Zelle in Spalte H ermitteln möchtest, ändere den Code:

    Set letzteZelle = ws.Cells(ws.Rows.Count, "H").End(xlUp)
  2. Beispiel mit Formel: Wenn du die letzte nicht leere Zelle in einem Bereich von J8 bis J22 ermitteln möchtest, kannst du die oben genannte Formel in eine Zelle eingeben.


Tipps für Profis

  • Nutze Application.Volatile, um sicherzustellen, dass das Makro bei jeder Änderungen in der Tabelle aktualisiert wird.
  • Überlege, die Suche nach der letzten nicht leeren Zelle in ein Ereignis (z.B. Worksheet_Change) einzufügen, um die Automatisierung zu verbessern.

FAQ: Häufige Fragen

1. Wie finde ich die letzte nicht leere Zelle in einer Spalte ohne VBA? Du kannst die Matrixformel verwenden, wie sie oben beschrieben ist. Achte darauf, dass die Zellen keine Formeln enthalten.

2. Kann ich das Makro für andere Spalten verwenden? Ja, du kannst die Spalte im Code anpassen, um die letzte nicht leere Zelle in einer beliebigen Spalte zu finden. Ersetze einfach "J" oder "H" durch die gewünschte Spalte.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige