Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Beim Öffnen Dialog mit Dateiname und Dateidatum
Gruppe
UserForm
Problem
Beim Öffnen der Arbeitsmappe soll ein Dialog mit Dateiname und Dateidatum angezeigt werden.
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der Arbeitsmappe ein.
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