Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Zeile springen bei öffnen

Forumthread: Letzte Zeile springen bei öffnen

Letzte Zeile springen bei öffnen
17.06.2009 15:56:25
chris58
Hallo !
Kann mir bitte wer sagen, was ich ändern muß um bei dem Code nicht in die Zeile 45 sondern in die nächste leere Zeile zu springen, wenn ich das Tool öffne ?
Danke
chris
Hier der Code:

Private Sub Workbook_Open()
Range("A45").Select
Range("A1:M9996").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Empfaenger").Select
Range("A1:E9999").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Kunden").Select
End Sub


Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile springen bei öffnen
17.06.2009 16:52:13
Heiko
hallo chris,

Private Sub Workbook_Open()
dim i as integer
range("A45").select
if Range("A45")"" then
for i=46 to 10000
if cells(i,1)="" then
cells(i,1).select
exit for
end if
next i
end if
Range("A1:M9996").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Empfaenger").Select
Range("A1:E9999").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Kunden").Select
End Sub


heiko

Anzeige
AW: Letzte Zeile springen bei öffnen
18.06.2009 08:08:09
chris58
Danke, das geht bestens
nochmals danke
chris
AW: Letzte Zeile springen bei öffnen
18.06.2009 09:59:36
chris58
Hallo
Jezt habe ich noch ein "klitzekleines" Problem.
Ich habe diesen Code in diversen Arbeitsblättern um zu vermeiden, daß andere die Codes löschen können. Mit dem vorigen Doppelklick gelange ich in das Sheet "Abbucher". Bisher ging alles bestens, jedoch seit gestern macht der u.a. Code maken.
Kann wer sagen, warum das so ist, es kommt immer ein Laufzeitfehler 1004 ... Die Zelle oder das Diagramm, das Sie versuchen zu ändern, ist geschützt und somit schreibgeschützt usw.
Hier der Code: (er sollte eingentlich bewirken, daß der Schutz neutralisiert wird und nach dem Eintrag wieder aktiviert wird)

Private Sub Worksheet_Activate()
ActiveSheet.Protect Password:="cesar", Userinterfaceonly:=True
End Sub


Danke für jede Hilfe
chris

Anzeige
AW: Letzte Zeile springen bei öffnen
18.06.2009 10:11:02
Heiko
hallo chris,
wenn du mit "neutralisiert" meinst, den arbeitsblattschutz aufzuheben, musst du schreiben:

activesheet.unprotect "passwort"


wenn du nur willst, dass niemand an deinem vba-code rumfummelt, kannst du im vba-editor, projekt-explorer mit rechtsklick auf deinen dateinamen -> "Eigenschaften von VBA-Projekt..." -> reiter "Schutz" das projekt zur anzeige sperren und ein passwort vergeben.
heiko

Anzeige
AW: Letzte Zeile springen bei öffnen
18.06.2009 10:22:54
chris58
Hallo !
Ich meinte mit Code eigentlich die Formeln in diesem Sheet. Wenn ich nun den VBA Code so ändere dann kommt:
Anwenungs- oder objektdefinierter Fehler
und die Daten werden zwar in das Sheet übertragen, jedoch mit dem Laufzeitfehler 1004 usw.
chris
AW: Letzte Zeile springen bei öffnen
18.06.2009 10:36:41
Heiko
hallo chris,

Sub schutzein() 'Mappen und Blattschutz einschalten
'Exit Sub 'Für Testzwecke
With ActiveSheet
.Range("B1").Locked = False
.Range("C1:D1").Locked = False
.Range("B3:C3").Locked = False
.Range("G3").Locked = False
.Range("B5:D5").Locked = False
.Range("B7").Locked = False
.Range("B11").Locked = False
.Range("A15").Locked = False
.Range("F15").Locked = False
.Range("B18:B52").Locked = False
.Range("B58").Locked = False
.Range("B60").Locked = False
.Range("B62").Locked = False
.Range("E62:F62").Locked = False
.Range("E82:F82").Locked = False
End With
ActiveSheet.Protect Password:="test", Contents:=True, Scenarios:=True
ThisWorkbook.Protect Password:="test", Structure:=True, Windows:=True
End Sub


mit "Range("A1:A3").Locked=False" hebst du den schutz für die zellen A1:A3 auf. beachte dabei, dass verbundene zellen mit "Range("A1:A3")" angegeben werden müssen.
sollte der lösungsvorschlag nicht deinen vorstellungen entsprechen, lade bitte die excel-datei hoch.
heiko

Anzeige
AW: Letzte Zeile springen bei öffnen
18.06.2009 11:55:57
chris58
Danke, jedoch wollte ich nur bei Doppelklick aus dem Tabellenblatt "Kunden" (der die Daten übernimmt) beim gesamten Tabellenblatt "Abbucher" und "Brief" den Schutz aufheben, die Daten reinstellen lassen (durch den Doppelklick) und dann die beiden Tabellenblätter wieder genauso geschützt haben, wie vor dem Doppelklick. Leider kann ich die Datei nicht hier reinstellen, da ich ansonst ALLES ändern müsste.
Danke jedenfalls für deine Hilfe
chris
Anzeige
AW: Letzte Zeile springen bei öffnen
18.06.2009 12:34:30
Heiko
hallo chris,
wo (zelle, tabellenblatt) klickst du doppelt hin? warum überhaupt doppelklick?
ansonsten:

private sub worksheet_beforedoubleclick(byval target as range)
if target=range("A1:Z999") then
worksheets("abbucher").unprotect "passwort"
worksheets("brief").unprotect "passwort"
end if
call datenkopieren
worksheets("abbucher").protect Password:="passwort", Contents:=True, Scenarios:=True
worksheets("brief").protect Password:="passwort", Contents:=True, Scenarios:=True
end sub


den code beim tabellenblatt "kunden" einfügen.
bedenke, dass doppelklick auch heißt zelle/ diagramm bearbeiten.
heiko

Anzeige
;

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
ans ende einer Tabelle
steffen

Hallo in die Runde,
wie bekomme ich es hin, dass mir beim aktivieren einer Tabelle das Ende der Tabelle angeziegt wird.
Ich habe die Zeile 1 fixiert und muss jedes mal runtersrollen.
versucht habe ich es hiermit, jedoch ohne gewünschtem erfolg; der Cursor steht zwar ganz unten, ich...
13.10.2008 10:49:08
Thread-ID: 1015962
4 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
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
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
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
letzter Wert in Spalte
Erik

Guten Morgen und Grüße aus Berlin.
Ich bräuchte da mal eure Hilfe.
Also Folgendes: In einer Tabelle existiert Spalte A mit Zeiten (00:00, 00:15, 00:30, [...], 23:30, 23:45) UND
einer Spalte B mit dazugehörigen Zahlen. Nicht alle Zeiten haben eine Zahl zugeordnet - die Tabelle füllt...
21.07.2009 08:26:50
Thread-ID: 1090111
3 Beiträge
Anzeige
Letzter Wert in Spalte
Eddi

Hallo zusammen,
ich möchte gern über VBA den letzten Wert in Spalte C ermitteln. Das besondere dabei ist, dass ein Großteil der Spalten ausgeblendet sein kann. Die untenstehende Fuktion liefert mir leider immer nur den letzten Wert der sichtbaren Zeilen. Habt Ihr eine Idee? Vielen Dank.
...
07.11.2009 17:14:26
Thread-ID: 1115242
8 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 Excel schnell erreichen

Schritt-für-Schritt-Anleitung

Um in Excel direkt zur letzten Zeile oder zur nächsten leeren Zeile zu springen, kannst du VBA (Visual Basic for Applications) nutzen. Hier ist ein einfaches Beispiel, das dir hilft, beim Öffnen einer Datei automatisch zur letzten beschriebene Zeile zu springen:

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

  2. Doppelklicke im Projekt-Explorer auf DieseArbeitsmappe.

  3. Füge den folgenden Code ein:

    Private Sub Workbook_Open()
    Dim i As Long
    Range("A45").Select
    If Range("A45") <> "" Then
        For i = 46 To 10000
            If Cells(i, 1) = "" Then
                Cells(i, 1).Select
                Exit For
            End If
        Next i
    End If
End Sub

  4. Schließe den VBA-Editor und speichere deine Datei als xlsm (Excel-Makro-fähige Datei).

  5. Schließe und öffne die Datei erneut, um den Code auszuführen und ans Ende der Excel-Tabelle zu springen.

Häufige Fehler und Lösungen

Fehler 1: Laufzeitfehler 1004

  • Problem: Du erhältst den Fehler, wenn du versuchst, auf geschützte Zellen zuzugreifen.
  • Lösung: Stelle sicher, dass du den Arbeitsblattschutz vor dem Zugriff auf die Zellen aufhebst. Füge im Code die Zeile ActiveSheet.Unprotect "dein_passwort" vor der Auswahl hinzu.

Fehler 2: Der Code springt nicht zur letzten Zeile

  • Problem: Der angegebene Bereich ist nicht korrekt oder es gibt keine leeren Zellen.
  • Lösung: Überprüfe, ob der Bereich (z.B. Range("A1:A10000")) korrekt definiert ist und genügend leere Zeilen vorhanden sind.

Alternative Methoden

  1. Tastenkombinationen:

    • Du kannst die STRG + Pfeil nach unten-Tastenkombination verwenden, um schnell zur letzten beschriebene Zeile in einer Spalte zu springen.
    • Mit STRG + Pfeil nach oben kommst du zur ersten beschrifteten Zeile.

  2. Excel-Funktionen:

    • Verwende die VERGLEICH-Funktion, um den letzten Eintrag einer bestimmten Spalte zu finden. Beispiel: 
      =VERGLEICH(9^9; A:A)
    • Diese Formel gibt dir die Zeilennummer des letzten Wertes in der Spalte A zurück.

Praktische Beispiele

  • Code, um bei Doppelklick auf ein Blatt zur letzten Zeile zu springen:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A1:A1000")) Is Nothing Then
        Dim lastRow As Long
        lastRow = Cells(Rows.Count, 1).End(xlUp).Row
        Cells(lastRow + 1, 1).Select
    End If
End Sub

  • Code, um beim Öffnen der Datei an das Ende der Tabelle zu springen:

    Private Sub Workbook_Open()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("DeinBlatt")
    ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub

Tipps für Profis

  • Automatisierung: Verwende Makros, um repetitive Aufgaben zu automatisieren, wie das Springen zur letzten Zeile oder das Einfügen von neuen Daten.
  • Verwendung von Namen: Definiere Namen für bestimmte Bereiche, um den Code lesbarer zu machen. Beispiel: LetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
  • Fehlerbehandlung: Implementiere On Error Resume Next, um den Code robuster zu machen.

FAQ: Häufige Fragen

1. Wie kann ich in Excel zum letzten Eintrag springen? Verwende die Tastenkombination STRG + Pfeil nach unten, um direkt zur letzten beschriebene Zeile zu gelangen.

2. Wie kann ich einen VBA-Code zum Springen zur letzten Zeile anpassen? Ändere die Range- und Cells-Referenzen im Code, um die spezifischen Spalten oder Zeilen anzupassen, die du verwenden möchtest. Achte darauf, den Schutz der Blätter entsprechend zu heben, falls erforderlich.

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