Office: (Office 2010) Mit VBA userform beforeSafe erstellen

Hallo ihr Lieben,
ich arbeite zur Zeit an einer Zusammenfassung wichtiger Daten und würde in meine Datei gerne einfügen das Vor dem Speichern ein Userform erscheint in dem man seinen Namen und die vorgenommenen Änderungen eintragen muss bevor man speichern kann. Die eingegeben daten sollen dabei zusätzlich dann im selben dokument auf einem bestimmten sheet in der nächstleeren Zeile von Spalte A und B gespeichert werden zusammen mit dem aktuellen Datum (in spalte c)

Ich hab jetzt bisher geschafft das userform zuerstellen, allerdings nur so das es die Einträge auf eine bestimmte Zelle (wie D12) speichert.. mehr leider noch nicht.

Könnte mir hier irgendjemand bei helfen?

lg

 

Hallo Peter,

was hast Du denn schon?
Poste doch mal deinen Code.

Gruß,
Lutz

 

Also an sich hab ich es jetz zum laufen bekommen, nur funktioniert das mit dem Speichern des Eintrags nicht...
hier der code für die Mappe:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Select Case save_check
Case True
Application.Quit
save_check = False
Case False
save_check = True
UserForm1.Show vbModal
Cancel = True

End Select

End Sub

und hier der code für den userformbutton

Private Sub CommandButton1_Click()

With Worksheets("Protocol_update").UsedRange
LastRow = .Rows(.Rows.Count).Row + 1
End With
Worksheets("Protocol_update").Cells(LastRow, 3).Value = TextBox1.Value
Worksheets("Protocol_update").Cells(LastRow, 4).Value = TextBox2.Value
Worksheets("Protocol_update").Cells(LastRow, 2).Value = Date
Unload Me
Workbooks("Studienübersicht.xlsm").Close SaveChanges:=True
End Sub

 

Ah ich seh gerade es funktioniert doch, nur nicht in den leeren Zeilen wo die Schriftart geändert wurde....