Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Cursor soll automatisch in Zelle springen

Cursor soll automatisch in Zelle springen
08.11.2004 15:46:58
Achim
Folgendes Problem:
Ich habe Formulare mit mehreren Spalten. Je Spalte wird mit bestimmten Werten belegt. Somit sind naturgemäß in jeder Spalte unterschiedlich viele Werte. Um neue Werte einzugeben muss man manuell in die jeweilige Spalte und dann ans Ende der Spalte scrollen. Gibt es eine Möglichkeit, daß der Cursor automatisch in die Zelle unter dem letzten Wert spring, sobald man die Spalte anklickt?
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Mit Worksheet_SelectionChange
Worti
Hallo Achim,
so:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Ende As Long
Ende = Cells(Rows.Count, Target.Column).End(xlUp).Row + 1
Application.EnableEvents = False
Cells(Ende, Target.Column).Activate
Application.EnableEvents = True
End Sub

Worti
Anzeige
AW: Mit Worksheet_SelectionChange
Paula
Hallo Worti
dein Makro funzt aber auch, wenn man nur eine Zelle aktiviert?!!!
Das sollte doch wohl nicht sein!!
Gruß Paula
AW: Mit Worksheet_SelectionChange
Dieter
Hallo Paula, Worti, Achim
so gehts:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Ende As Long
If Target.Count <> 65536 Then Exit Sub
Ende = Cells(Rows.Count, Target.Column).End(xlUp).Row + 1
Application.EnableEvents = False
Cells(Ende, Target.Column).Activate
Application.EnableEvents = True
End Sub

Gruß Dieter
Anzeige
AW: Mit Worksheet_SelectionChange
Achim
Hallo Worti, Paula und Dieter
danke für die schnelle Reaktion. Jetzt habe ich nur das Problem dieses Makro einzubinden. Ich habe das Makro von Dieter markiert, Exel aufgemacht, Makro angeklickt, dem Kind einen Namen gegeben, dann erstellen und habe dann das o.a. Makro eigefügt. Aber es läuft nicht. Frage wie bekomme ich es ans laufen? Danke für Eure Hilfe im voraus
Achim
Anzeige
AW: Mit Worksheet_SelectionChange
Dieter
Hallo Achim
du mußt dieses Makro unter Tabelle1 oder wie deine Tabellen heißen, einfügen, nicht unter Module!
Den Makronamen darfst Du natürlich nicht ändern, da es sich um ein Sheetereignis handelt.
Gruß Dieter
Noch Fragen, dann aber später, jetzt Feierabend
AW: Mit Worksheet_SelectionChange
Worti
Hallo Paula,
du hast natürlich recht, so darf das ganze nicht laufen. Wohl etwas zu schnell geschossen. :-(
Worti
Anzeige
AW: Mit Worksheet_SelectionChange
Achim
Danke Leute, das ganze läuft perfekt
Gruß Achim
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Automatisches Springen des Cursors in Excel


Schritt-für-Schritt-Anleitung

Um den Cursor in Excel automatisch in die Zelle unter dem letzten Wert springen zu lassen, kannst du ein VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne deine Excel-Datei und gehe zu der Tabelle, für die du das Makro einrichten möchtest.

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

  3. Suche im Projekt-Explorer nach deiner Tabelle (z. B. "Tabelle1") und doppelklicke darauf.

  4. Füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
       Dim Ende As Long
       If Target.Count <> 1 Then Exit Sub
       Ende = Cells(Rows.Count, Target.Column).End(xlUp).Row + 1
       Application.EnableEvents = False
       Cells(Ende, Target.Column).Activate
       Application.EnableEvents = True
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Klicke auf eine Zelle in der gewünschten Spalte. Der Cursor sollte nun automatisch in die nächste freie Zelle springen.


Häufige Fehler und Lösungen

  • Fehler: Der Excel-Cursor springt nicht in die nächste Zelle.

    • Lösung: Stelle sicher, dass du den Code in das richtige Tabellenmodul eingefügt hast (nicht in ein allgemeines Modul).
  • Fehler: Der Cursor springt in andere Zellen, wenn ich mehrere Zellen markiere.

    • Lösung: Überprüfe die If Target.Count <> 1 Then Exit Sub Zeile im Code, um sicherzustellen, dass nur eine Zelle aktiviert wird.

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch die folgenden Excel-Funktionen ausprobieren:

  • Tastenkombination: Um schnell ans Ende einer Spalte zu springen, kannst du STRG + Pfeil nach unten verwenden. Dies bringt dich zur letzten Zelle mit Wert.

  • Direktes Springen: Um in eine bestimmte Zelle zu springen, kannst du STRG + G drücken, die Adresse der Zelle eingeben und mit Enter bestätigen.


Praktische Beispiele

  1. Makro aktivieren: Wenn du ein Formular mit unterschiedlichen Werten in Spalten hast, wird das Makro das Arbeiten erleichtern, indem es den Cursor automatisch ans Ende der Spalte springt, sobald du auf die Spalte klickst.

  2. Excel VBA: Mit dem Worksheet_SelectionChange-Ereignis kannst du den Cursor in Excel aktivieren, was es einfacher macht, neue Werte hinzuzufügen, ohne manuell scrollen zu müssen.


Tipps für Profis

  • Nutze das VBA-Makro nicht nur für eine Tabelle, sondern passe es an, um es auf anderen Tabellen in deiner Arbeitsmappe zu verwenden.
  • Experimentiere mit weiteren VBA-Ereignissen, um deinen Arbeitsablauf in Excel zu optimieren.

FAQ: Häufige Fragen

1. Wie aktiviere ich den Excel-Cursor in einer Zelle?
Der Cursor wird automatisch aktiviert, wenn du auf die Zelle klickst, und das oben beschriebene Makro ist aktiviert.

2. Was tun, wenn Excel in andere Zellen springt?
Überprüfe den Code und stelle sicher, dass nur eine Zelle aktiviert wird. Der Code sollte im richtigen Tabellenmodul eingefügt sein.

Beliebteste Forumthreads (12 Monate)

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