|
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
|