Office - Word, Excel und Co. 9.744 Themen, 41.408 Beiträge

Verfolgung starten Optionen

Excel: Letzte Eintragung in Zeile automatisch zentrieren.

minbari / 11 Antworten / Flachansicht Nickles

Moin,

Folge-Thread.

Ich habe eine Exceltabelle, in welche mittels Userform Daten eingetragen werden sollen.

Mittlerweile funktioniert alles einwandfrei. Jetzt möchte ich noch, dass die letzte Eintragung
automatisch zentriert wird.
Ich schätze, dass es eine Liste mit ca 3000-4000 Eintragungen wird. Da neue Eintragungen unten eingefügt werden, würde ich es sehr mühsam finden, zum Überprüfen 30 Seiten nach unten zu scrollen.

Habt Ihr eine Idee?

Großes Dankeschön!!

minbari

bei Antwort benachrichtigen
Bitte beschreibe Dein Vorhaben etwas genauer: Jede Zeile, die Du mit dem UserForm und dem dazugehörigen VBA-Code in die ... mawe2
Ja, im Grunde ist es genau das. Ich möchte, dass die Tabelle dann automatisch zum letzten eintrag springt. Wie bei minbari
Wenn die Eintragungen in Spalte A sind folgender VBA-Code: Sub Makro Range A1 .Select Selection.End xlDown .Select ... Edgar Rau
Das funktioniert nicht. Ich habe den Code in den Code der Userform eingefügt - nichts. Habe den Code auf B6 geändert. ... minbari
Es wird die Zelle A1 selektiert. Die letzte beschriebene Zelle in Spalte A wird selektiert. Die letzte beschriebene Zelle ... Edgar Rau
Das, was Dein Script macht, ist gar nicht das Ziel. Weil ich aus dem Startposting auch nicht ganz schlau geworden bin, ... mawe2
Hallo mawe2, vielen Dank für die Erklärung. Dann habe ich es tatsächlich falsch verstanden. Ich dachte, er wollte den ... Edgar Rau
Hier nochmal der Code der Userform: Private Sub Abbrechen_Button_Click Eingabefenster schließen Unload Eingabemaske End ... minbari
Wenn keiner einen brauchbaren Vorschlag hat, dann folgende Infos. Rows.Count, ist die letzte mögliche Zeile. Zeile 65536 ... hddiesel
minbari hddiesel „Wenn keiner einen brauchbaren Vorschlag hat, dann folgende Infos. Rows.Count, ist die letzte mögliche Zeile. Zeile 65536 ...“
Optionen
ActiveWindow.ScrollRow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row - 3

Das war die Lösung!!

Vielen, vielen Dank!!!!!

bei Antwort benachrichtigen
Hallo minbari, Danke für deine Rückmeldung. hddiesel