Gruppe
Dialog
Problem
Beim Öffnen der Arbeitsmappe soll ein Dialog mit Dateiname und Dateidatum angezeigt werden.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
frmOpen.Show
End Sub
ClassModule: frmOpen
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim sTxt As String, sDate As String
sDate = FileDateTime(ThisWorkbook.FullName)
sTxt = "Programmname: " & ThisWorkbook.Name & vbLf
sTxt = sTxt & "Versionsdatum: " & sDate
lblVersion.Caption = sTxt
End Sub