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
minbari Nachtrag zu: „Excel: Letzte Eintragung in Zeile automatisch zentrieren.“
Optionen

Hier nochmal der Code der Userform:

Private Sub Abbrechen_Button_Click()

' Eingabefenster schließen

Unload Eingabemaske

End Sub


Private Sub Eintragen_Button_Click()

' Eingaben der Maske in das Fahrtenbuch übernehmen

Dim StartZeile&
Dim Ws As Worksheet
Set Ws = ActiveSheet
StartZeile = Ws.Cells(65536, 2).End(xlUp).Row + 1
Ws.Cells(StartZeile, 2) = CDate(Text_Datum.Text)
Ws.Cells(StartZeile, 3) = Zweck
Ws.Cells(StartZeile, 4) = Fahrzeug
Ws.Cells(StartZeile, 5) = Begleitung
Ws.Cells(StartZeile, 6) = Bemerkung

' Rahmen um die neu eingefügten Zellen erstellen

 Dim i As Integer
For i = 2 To 6
Ws.Cells(StartZeile, i).Borders(xlEdgeLeft).LineStyle = xlContinuous
Ws.Cells(StartZeile, i).Borders(xlEdgeTop).LineStyle = xlContinuous
Ws.Cells(StartZeile, i).Borders(xlEdgeBottom).LineStyle = xlContinuous
Ws.Cells(StartZeile, i).Borders(xlEdgeRight).LineStyle = xlContinuous
Next i

' nach Datum sortieren

Range("B6:F3300").Sort Key1:=Range("B7")

' Eingabemaske schließen

Unload Eingabemaske

End Sub




Private Sub UserForm_Initialize()

'Automatischer Eintrag Datum

Eingabemaske.Text_Datum.Value = Date

'Dropdownmenü Begleitung

Eingabemaske.Begleitung.RowSource = "Daten!$A$2:$A$8"

'Dropdownmenü Fahrzeug

Eingabemaske.Fahrzeug.RowSource = "Daten!$C$2:$C$15"

'Dropdownmenü Bemerkung

Eingabemaske.Bemerkung.RowSource = "Daten!$E$2:$E$9"

'Dropdownmenü Zweck der Fahrt

Eingabemaske.Zweck.RowSource = "Daten!$G$2:$G$32"


End Sub

Private Sub UserForm_Activate()
  Me.Left = 350
  Me.Top = 350
End Sub




bei Antwort benachrichtigen
Wenn keiner einen brauchbaren Vorschlag hat, dann folgende Infos. Rows.Count, ist die letzte mögliche Zeile. Zeile 65536 ... hddiesel
Das war die Lösung!! Vielen, vielen Dank!!!!! minbari
Hallo minbari, Danke für deine Rückmeldung. hddiesel