Hallo zusammen

Ich würde mich sehr freuen, wenn mir jemand bei der Lösung des nachstehenden Problems helfen könnte.

Für die Beschlussverwaltung einer kleiner Organisation benötige ich eine einfach Excel Liste mit einer VBA-Masken Eingabe. Soweit habe ich das auch hingekriegt.
Die Liste umfasst folgende Spalten: Datum / Bezeichnung / Beschluss.

Die Eingabemaske wird über ein Modul-Button "Formular starten"  geöffnet.

Nun stellt sich mir folgendes Problem.

Der neue Datensatz wird jeweils über den Button übernehmen in die Excel Liste übertragen. Ziel ist es nun, dass der neuste Eintrag jeweils zuoberst steht. Demach müsste jeweils automatisch eine "Leerzeile" über dem neusten Eintrag eingefügt werden. Dies kriege ich jedoch nicht hin. Hat jemand eine Idee,

Herzlichen Dank für eure Hilfe

Hier mein aktueller Code:

Private Sub Button_Cancel_Click()

'Eingabefenster schliessen

Unload BFK_Team

End Sub

Private Sub Button_Take_Click()

'Eingaben der Schaltflächen in die Arbeitsmappe übernehmen

Dim last As Integer

last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

    ActiveSheet.Cells(last, 1).Value = CDate(BFK_Team.Text_Datum.Value)
    ActiveSheet.Cells(last, 2).Value = BFK_Team.Text_Bezeichnung.Value
    ActiveSheet.Cells(last, 3).Value = BFK_Team.Text_Beschluss.Value

End Sub

Private Sub UserForm_Initialize()

'Einträge für die Schaltflächen

BFK_Team.Text_Datum.Value = Date
BFK_Team.Text_Bezeichnung = "Gebe eine Bezeichnung ein"
BFK_Team.Text_Beschluss = "Gebe einen Beschluss ein"

End Sub