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

Automatisch in nächste leere Zeile springen

Forumthread: Automatisch in nächste leere Zeile springen

Automatisch in nächste leere Zeile springen
12.02.2004 23:00:28
Martin
Hallo,
ich habe eine Excel-Datei bei der immer neue Zeilen hinzugefügt werden. Jedesmal beim Öffnen der Datei muss ich bis ans Ende der Liste scrollen um den neuen Eintrag vorzunehmen.
Gibt es eine Möglichkeit, dass Excel automatisch beim Öffnen der Arbeitsmappe zur nächsten freien Zeile springt?
Vielen Dank für Eure Antworten.
Martin
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisch in nächste leere Zeile springen
12.02.2004 23:09:13
Karl-Otto Reimann
Hallo Martin
Vielleicht hilft sowas:

Sub Offset
varCol = 1
If varCol = "" Then Exit Sub
Set rng = Cells(Rows.Count, CInt(varCol)).End(xlUp)
rng.Offset(1).select
End Sub

Gruß
Karl-Otto
AW: Automatisch in nächste leere Zeile springen
12.02.2004 23:24:17
FP
Hallo Martin,
kopiere diesen Code in den Ereignisbereich von "DieseArbeitsmappe"

Private Sub Workbook_Open()
With Application
.ScreenUpdating = False
With Cells(65536, 1).End(xlUp)
.Offset(0 - (.Value <> "")).Select
End With
.ScreenUpdating = True
End With
End Sub


Servus aus dem Salzkammergut
Franz
Anzeige
AW: Automatisch in nächste leere Zeile springen
12.02.2004 23:36:11
Martin
Hallo Franz,
funktioniert bei mir leider nicht! :-(
Martin
AW: Automatisch in nächste leere Zeile springen
12.02.2004 23:41:11
Karl-Otto Reimann
Aber der muß doch gehen:

Private Sub Workbook_Open()
With Application
.ScreenUpdating = False
With Cells(65536, 1).End(xlUp)
.Offset(1).Select
End With
.ScreenUpdating = True
End With
End Sub

Anzeige
AW: Automatisch in nächste leere Zeile springen
12.02.2004 23:47:27
Martin
Funktioniert leider auch nicht!
habe den Code im VB Editor unter "DieseArbeitsmappe" kopiert.
Beim Öffnen der Datei tut sich leider nichts!
AW: Automatisch in nächste leere Zeile springen
12.02.2004 23:51:31
FP
Hallo Martin,
kann es sein, dass Spalte A bei Dir leer ist?
Servus aus dem Salzkammergut
Franz
AW: Automatisch in nächste leere Zeile springen
12.02.2004 23:53:22
Martin
Nein, in der Spalte A sind auch Daten.
Anzeige
AW: Automatisch in nächste leere Zeile springen
13.02.2004 00:10:10
Karl-Otto Reimann
Das Prob wird sein, daß Du den Bereich schon 'mal benutzt hast,
dann ist LastCell alles mögliche und meine maschine reagiert echt zickig.
AW: Automatisch in nächste leere Zeile springen
13.02.2004 00:22:14
Stefan
Kann es sein das die erste Tabelle gar keine Daten enthält?
Kopier doch mal diesen Code unter "Diese Arbeitsmappe" und
trage den BlattNamen der Tabelle wo das passieren soll statt nach Sheets ein

Private Sub Workbook_Open()
Sheets("Tabelle1").Select  'hier deinen Tabellenblattnamen einsetzen
AnzahlZeile = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Cells(AnzahlZeile, 1).Select
End Sub

Anzeige
AW: Automatisch in nächste leere Zeile springen
13.02.2004 08:19:04
P. Weidenhagen
Hallo, probiere es doch einfach mal damit:
Wenn Du in Excel mit dem Mauszeiger bis auf den unteren Rand einer Zelle fährst bis ein Kreuz entsteht (mittig bleiben) und dann doppelclickst, dann springt Excel zur letzten Zelle mit Inhalt in dieser Spalte, das funktioniert auch nach rechts, links und nach oben. Du solltest natürlich eine Spalte wählen mit durchgehenden Inhalten, d.h. ohne leere Zellen, dort bleibt der Cursor nämlich stehen
Vielleicht hilft Dir das weiter, ohne grosse Makros zu schreiben.
LG
Peter
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Automatisch zur nächsten leeren Zeile in Excel springen


Schritt-für-Schritt-Anleitung

Um in Excel automatisch zur nächsten leeren Zeile zu springen, kannst Du ein VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne Deine Excel-Datei.

  2. Drücke ALT + F11, um den Visual Basic Editor zu öffnen.

  3. Suche im Projekt-Explorer nach „DieseArbeitsmappe“.

  4. Klicke mit der rechten Maustaste und wähle „Code anzeigen“.

  5. Füge den folgenden Code ein:

    Private Sub Workbook_Open()
        With Application
            .ScreenUpdating = False
            With Cells(Rows.Count, 1).End(xlUp)
                .Offset(1).Select
            End With
            .ScreenUpdating = True
        End With
    End Sub
  6. Schließe den Visual Basic Editor.

  7. Speichere die Datei und schließe sie.

  8. Öffne die Datei erneut, um das Makro zu testen.

Dieses Makro sorgt dafür, dass Excel beim Öffnen der Datei automatisch zur nächsten leeren Zelle in Spalte A springt.


Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass Du den Code genau im Bereich „DieseArbeitsmappe“ eingefügt hast. Überprüfe auch, ob die Spalte A Daten enthält.
  • Fehler: Excel springt nicht zur nächsten leeren Zelle.

    • Lösung: Vergewissere Dich, dass die letzte verwendete Zelle in Spalte A nicht leer ist. Du kannst auch den Code anpassen, um eine andere Spalte zu verwenden.

Alternative Methoden

Falls Du keine VBA-Makros verwenden möchtest, gibt es eine praktische Methode, um in Excel zur nächsten leeren Zeile zu springen:

  1. Bewege den Mauszeiger zum unteren Rand einer Zelle in der gewünschten Spalte, bis ein Kreuz erscheint.
  2. Doppelklicke. Excel springt zur letzten Zelle mit Inhalt in dieser Spalte.

Diese Methode funktioniert besonders gut, wenn Du eine Spalte mit durchgehenden Inhalten hast.


Praktische Beispiele

Hier sind zwei Beispiele, wie Du das Makro anpassen kannst:

  1. Springen zur nächsten leeren Zeile in einer anderen Spalte:

    Private Sub Workbook_Open()
        With Application
            .ScreenUpdating = False
            With Cells(Rows.Count, 2).End(xlUp) ' Spalte B
                .Offset(1).Select
            End With
            .ScreenUpdating = True
        End With
    End Sub
  2. Springen zur nächsten leeren Zeile auf einem bestimmten Blatt:

    Private Sub Workbook_Open()
        Sheets("Tabelle1").Select
        With Application
            .ScreenUpdating = False
            With Cells(Rows.Count, 1).End(xlUp)
                .Offset(1).Select
            End With
            .ScreenUpdating = True
        End With
    End Sub

Tipps für Profis

  • Verwende Application.Goto: Wenn Du sicherstellen möchtest, dass Excel zur nächsten leeren Zelle springt, kannst Du auch die Methode Application.Goto verwenden.

  • Benutzerdefinierte Tastenkombination: Du kannst das Makro mit einer Tastenkombination verknüpfen, um schneller auf die nächste leere Zelle zu springen.

  • Makros in der Schnellzugriffsleiste: Füge Dein Makro zur Schnellzugriffsleiste hinzu, um den Zugriff zu erleichtern.


FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um in eine andere Spalte zu springen?
Du musst lediglich den Index der Spalte in der Zeile With Cells(Rows.Count, X).End(xlUp) ändern, wobei X die Spaltennummer ist.

2. Funktioniert dieser Ansatz in allen Excel-Versionen?
Ja, die VBA-Makros sollten in den meisten modernen Excel-Versionen (Excel 2007 und neuer) funktionieren. Stelle sicher, dass Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige