Thema: Beim Öffnen Dialog mit Dateiname und Dateidatum

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

Beiträge aus dem Excel-Forum zu den Themen Dialog und UserForm