Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1532to1536
1532to1536
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Springe zu letzter Zeile

Forumthread: Springe zu letzter Zeile

Springe zu letzter Zeile
07.01.2017 11:47:41
Silke
Hallo,
für mein " VBA Projekt " würde ich gern eine CMD für das Ermitteln der letzten ausgefüllten Zeile im Tabellenblatt, wo ich mich gerade befinde, einfügen.
Der Bereich ist von A bis N und es kann z.B. Text, Zahlen, Sonderzeichen vorkommen.
Wenn die "letzte ausgefüllte Zeile" gefunden wurde, soll dort hin gesprungen werden.
Der Cursor soll sich dann in die Spalte C befinden.
Frage 2: ich würde gern die "aktive Zeile" in eine "Hilfstabelle" kopieren.
Dieser Vorgang soll sich jedes mal wiederholen, wenn ich die Zeile wechsle.
Also die "aktive Zeile im Bereich A bis N " nach " Hilfsblatt P2 bis AC2 " kopieren und dort einfügen.
Dies würde ich für einmal eine "Textanzeige in meiner UF" und zusätzlich für eine bedingte Formatierung nutzen wollen.
Wie könnte dazu ein Code aussehen. Der Makrorecorder hilft mir da nicht so sehr.
Grüße Silke
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Springe zu letzter Zeile
07.01.2017 12:00:01
Crazy
Hallo
hier der Code zum ermitteln der letzten Zeile 
Sub test()
Dim lngLetzte As Long
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Cells(lngLetzte, 3).Select
End Sub
welche Zeile soll wann kopiert werden?
die Zeile die du zur aktiven Zeile machst?
oder die Zeile die du verlässt?
MfG Tom
Anzeige
AW: Springe zu letzter Zeile
07.01.2017 12:19:40
Silke
Hallo Crazy Tom,
danke für's helfen.
  • welche Zeile soll wann kopiert werden?
    die Zeile die du zur aktiven Zeile machst?
    oder die Zeile die du verlässt?

    • es soll die Zeile im Tabellenblatt "Bearbeiten" dann kopiert werden, sobald ich mit " Doppelklick " auf die Zelle "C" die UF öffne.
    Kurz gesagt- die Zeile ich ich zur aktiven gemacht habe. Worin ich mich gerade befinde.
    Diese Zeile soll dann nach "Hilfstabelle P2 bis AC2" kopiert werden. Wenn möglich "nur Werte".
    Das mit dem Doppelklick und UF öffnen funktioniert.
    Nach der Bearbeitung schließt sich die UF wieder. Es wird weiter gesprungen oder ich scrolle weiter und öffne die UF wieder. Somit wird Sie immer neu geladen.
    Anzeige
    AW: Springe zu letzter Zeile
    07.01.2017 12:25:00
    Crazy
    Hallo
    das könnte dann so aussehen
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Sheets("Hilfstabelle").Range("P2").Resize(1, 14).Value = _
Cells(ActiveCell.Row, 1).Resize(1, 14).Value
UserForm1.Show
End Sub
    MfG Tom
    Anzeige
    AW: Springe zu letzter Zeile
    07.01.2017 14:43:26
    Silke
    Herzlichen Dank, Tom
    super- es geht-
    habe den Code in die Arbeitsmappe gespeichert.

    Forumthreads zu verwandten Themen

    Letzte beschriebene Zeile suchen
    Thomas3

    Guten Morgen zusammen,
    ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
    Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
    In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
    19.08.2008 08:29:00
    Thread-ID: 1002780
    10 Beiträge
    Letzter Wert einer Spalte (Matrixformel)
    {mskro}

    Hallo Excelaner,
    ich benötige mal wieder eine Hilfestellung.
    Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
    Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
    =INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
    Nur wird...
    28.08.2008 09:59:21
    Thread-ID: 1005303
    9 Beiträge
    Sortieren bis zum letzten Eintrag
    Werner

    Hallo allerseits,
    habe ein Problem beim Sortieren einer Tabelle. Diese besteht aus Zellen von A2:X200.
    A:A =Lfd.-Nr. B:B Vorname, Name C:C Familienname ....
    Zellen der Spalte C beinhalten Formel zum Trennen aus Einträgen der Spalte B.
    Nach Markierung Bereich A2:X200 und ansch...
    09.09.2008 20:45:00
    Thread-ID: 1008577
    6 Beiträge
    Anzeige
    aktive Zelle soll in Spalte "L" springen
    Karsten

    Hallo... ,
    Suche folgenden Makrobefehl:
    Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
    Danke für eure Hilfe!
    Gruß
    Karsten
    03.10.2008 16:34:44
    Thread-ID: 1014058
    3 Beiträge
    Max,Min, Mittelwert von letzter Zeile
    letzter

    Hallo
    Ich habe in einer Tabelle Temperaturwerte die jeden Tag ergänzt werden. Nun möchte ich für den jeweils letzten eingetragenen Tag die Min, Max und Mittelwerte angezeigt bekommen. Kann ich das ohne VBA mit den Excel Funktionen lösen, das immer die letzte Zeile verwendet wird?
    Zude...
    08.01.2009 08:53:00
    Thread-ID: 1037754
    3 Beiträge
    Anzeige
    In erste freie Spalte springen
    Thomas

    Hallo Exelgemeinde,
    Ich möchte per Schaltbutton in die erste freie Spalte im Bereich CU 8 bis GF 8 springen.
    Ist das möglich, und wie müßte das Makro dafür sein ?
    Wäre schön wenn mir jemand weiterhelfen könnte.
    Gruß Thomas
    19.01.2009 16:48:17
    Thread-ID: 1041558
    3 Beiträge
    nach letzter beschriebener Zeile einfügen
    lisa

    Hallo zusammen
    Ich habe einen kopierten Datensatz, der in eine neue Tabelle1 ind die nächste frei Zeile eingefügt werden soll.
    Hat hier jemand eine Idee, wie ich die erste freie Zelle in Spalte a finden kann und dort dann die Werte eingefügt werden?
    Liebe Grüße Lisa
    03.02.2009 17:36:42
    Thread-ID: 1046730
    8 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
    Anzeige
    Spalte bis zur letzten Zeile mit akt. Datum füllen
    Stefan

    Hallo,
    ich habe eine Tabelle mit mehreren gefüllten Spalten (z.B. A, C, E, F) und leeren Spalten dazwischen.
    Nun möchte ich Spalte I mit dem aktuellen Datum füllen, und zwar bis zur letzten gefüllten Zeile einer Spalte mit Inhalt.
    Wie gehe ich da am besten vor?
    Die gefüllten Spa...
    03.03.2009 13:35:30
    Thread-ID: 1055961
    4 Beiträge
    Erste freie Zelle in letzter Spalte ermitteln
    Jonathan

    Hallo zusammen,
    ich stehe wieder einmal vor einem Problem.
    Ich möchte in der letzten Spalte (variabel) die erste freie Zelle ermitteln.
    Ich bekomme den Code hierfür einfach nicht hin. Könnt ihr mir hier weiterhelfen?
    Vielen Dank schon mal.
    Gruß
    Jonathan
    03.06.2009 11:04:40
    Thread-ID: 1078815
    5 Beiträge
    Anzeige
    Ans ende einer Zeile springen
    Felix

    Hallo,
    wahrscheinlich eine sehr einfache Frage für euch:
    Ich möchte gerne per makro einen wert 3 zellen links vom zeilenende kopieren und an einer andere zelle wieder einfügen.
    Das ganze zur einer schleife programmieren kann ich (hoffe ich) selbst.
    Vielen Dank.
    Felix
    16.06.2009 13:23:03
    Thread-ID: 1081884
    4 Beiträge
    Letzte Zeile und letzte Spalte einer Druckseite?
    Kasimir

    Hallo Leute,
    ich bin schon auf der Suche hier im Forum-Archiv gewesen, aber leider nicht richtig fündig geworden. Ich suche eine Möglichkeit per VBA die letzte Seite und die letzte Spalte einer Druckseite zu ermitteln. Wie bekomme ich so etwas hin?
    Danke Euch schon mal,
    Kasimir
    25.06.2009 14:02:25
    Thread-ID: 1084311
    2 Beiträge
    Anzeige
    Anzeige

    Infobox / Tutorial

    In die letzte Zeile springen und Daten kopieren in Excel

    Schritt-für-Schritt-Anleitung

    Um in Excel in die letzte beschriebene Zeile zu springen, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

    1. Öffne den VBA-Editor:

      • Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

    2. Füge ein neues Modul hinzu:

      • Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ und wähle „Einfügen“ > „Modul“.

    3. Füge den folgenden VBA-Code ein:

      Sub LetzteZeileSpringen()
   Dim lngLetzte As Long
   lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
   Cells(lngLetzte, 3).Select
End Sub

    4. Führe das Makro aus:

      • Drücke F5, um das Makro auszuführen. Der Cursor springt nun in die letzte beschriebene Zeile in Spalte C.

    Häufige Fehler und Lösungen

    • Fehler: „Runtime Error 1004“:

      • Lösung: Stelle sicher, dass deine Tabelle nicht leer ist. Das Makro kann nur in eine nicht leere Tabelle springen.

    • Fehler: Cursor springt nicht zur gewünschten Zelle:

      • Lösung: Überprüfe den Code und stelle sicher, dass die Spalte (in diesem Fall Spalte C) korrekt angegeben ist.

    Alternative Methoden

    Eine weitere Möglichkeit, um ans Ende einer Excel-Tabelle zu springen, ist die Verwendung der Tastenkombination CTRL + ↓. Dies funktioniert, solange die Zellen in der Spalte nicht leer sind.

    Du kannst auch ein benutzerdefiniertes Excel-Formular (UserForm) verwenden, um den letzten Eintrag anzuzeigen und dort zu navigieren.

    Praktische Beispiele

    • Beispiel 1: Um die letzte gefüllte Zeile in einer bestimmten Spalte zu finden und in eine Hilfstabelle zu kopieren, kannst du folgenden Code verwenden: 
      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   Sheets("Hilfstabelle").Range("P2").Resize(1, 14).Value = _
   Cells(ActiveCell.Row, 1).Resize(1, 14).Value
   UserForm1.Show
End Sub
      • Dieser Code kopiert die aktive Zeile in die Hilfstabelle, sobald du einen Doppelklick auf eine Zelle machst.

    Tipps für Profis

    • Verwende die End-Eigenschaft, um effektiv in die letzte Zeile oder Spalte zu springen. Beispielsweise kannst du Cells(Rows.Count, 2).End(xlUp).Row nutzen, um zur letzten gefüllten Zelle in Spalte B zu gelangen.
    • Kombiniere diese Techniken mit bedingter Formatierung, um deine Daten visuell ansprechender zu gestalten.

    FAQ: Häufige Fragen

    1. Wie kann ich in die letzte Zeile springen, die einen bestimmten Wert enthält? Um dies zu erreichen, kannst du eine Schleife verwenden, um die Zellen durchzugehen und die letzte Zelle mit dem gesuchten Wert zu finden.

    2. Kann ich diese Makros auch in Excel Online verwenden? Leider unterstützen Excel Online keine VBA-Makros. Du musst die Desktop-Version von Excel verwenden, um diese Funktionen zu nutzen.

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Anzeige