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

Curser in nächste leere Zelle

Forumthread: Curser in nächste leere Zelle

Curser in nächste leere Zelle
20.02.2025 07:26:19
moselfuchs
Was lange währt wird endlich gut.
Weis einer von euch VBA spezialisten einen Code, damit nach dem Speichern/Beenden der Tabelle der Curser in die nächste freie Zelle der Spalte B springt, sodass beim nächsten Öffnen die Eingabe sofort starten kann.
Das brauche ich nicht unbedingt, macht die Bedienung aber schneller und einfacher.
Oder kann ich im bestehenden Code etwas löschen?
Danke für eure Bemühungen.
https://www.herber.de/bbs/user/175866.xlsm
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Curser in nächste leere Zelle
20.02.2025 07:48:49
MCO
Guten Morgen!

Dieser Code macht was du willst.
Packe ihn in das Modul "DieseArbeitsmappe" 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Select

    ThisWorkbook.Save 1

End Sub


Wenn du allerdings auf einem anderen Sheet unterwegs bist, wird das auf diesem Sheet gemacht, da der Verweis vor "cells" nicht gegeben ist.
Ggf. musst du hier noch Sheets(1). oder Sheets("Meine Daten"). oder sowas ergänzen.

Gruß, MCO
Anzeige
AW: Curser in nächste leere Zelle
20.02.2025 08:40:03
Oberschlumpf
Hi,

versuch das hier:
https://www.herber.de/bbs/user/175867.xlsm

Mein Code steht im Open-Ereignis; es wird immer die letzte, genutzte Zeile in Spalte B gesucht...und...es wird letzte Zeile +1 markiert = wie gewünscht

Hilfts?

Ciao
Thorsten
Anzeige
AW: Curser in nächste leere Zelle
20.02.2025 08:23:39
moselfuchs
Danke für deine schnelle Hilfe.
Meine VBA Kenntnisse sind sehr dürftig.
Was meinst du damit:
"Wenn du allerdings auf einem anderen Sheet unterwegs bist, wird das auf diesem Sheet gemacht, da der Verweis vor "cells" nicht gegeben ist.
Ggf. musst du hier noch Sheets(1). oder Sheets("Meine Daten"). oder sowas ergänzen. "
Kann ich in meinem Code etwas weglassen?
Ist folgender Code notwendig?
"'gibt die letzte beschriebene Zelle in der 2. Spalte (also B) aus
letzteZeile = ActiveWorkbook.Worksheets("Wertung-Einzel").Cells(Rows.Count, 2).End(xlUp).Row"
Das Ganze stammt nicht von mir, es hat ein Bekannter geschrieben, der leider nicht mehr zu erreichen ist. Mit diesem Code wird nach dem Speichern immer die ertse Zelle in Spalte B markiert, oder sehe ich das falsch?
Gruß moselfuchs
Anzeige
AW: Curser in nächste leere Zelle
20.02.2025 10:37:54
MCO
"Code wird nach dem Speichern immer die ertse Zelle in Spalte B markiert, oder sehe ich das falsch?"

Das siehst du falsch.
Es ist die letzte beschriebene Zeile in Spalte 2 ("B")

mein ".Offset(1, 0).Select" geht noch 1 Zeile tiefer

Gruß, MCO

AW: Curser in nächste leere Zelle
21.02.2025 01:03:34
moselfuchs
Hallo MCO,
es funktioniert nicht richtig. Dies war aber mein Fehler. Ich hatte nicht angegeben, dass dieses Tabellenblatt "Wertung-Einzel" das dritte im Arbeitsblatt ist.
Wie muss ich deinen VBA Code ändern, dass es funktioniert. So kommt immer die Melduing, dass er nicht ausgeführt werden kann.
Danke vorab.
Gruß moselfuchs
Anzeige
AW: Curser in nächste leere Zelle
21.02.2025 10:09:57
MCO
Moin!

So geht´s hoffentlich: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)

    With Sheets("Wertung-Einzel")

        .Select

        .Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Select

    End With

    ThisWorkbook.Save

End Sub


Gruß, MCO
Anzeige
AW: Curser in nächste leere Zelle
21.02.2025 19:05:40
moselfuchs
Es funktioniert im Prinzip, aber wenn ich abspeichere und danach wieder öffne, wird das "Wertung-Einzel" Tabellenblatt geöffnet, nicht die Startseite "Einteillung-Termine.
Kann man es so ändern, dass beim Öffnen immer die "Einteilung-Termine" startet.
Ich habe die komplette Tabelle beigefügt.
Danke.
https://www.herber.de/bbs/user/175923.xlsm
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum