Excelversion prüfen
Jörg-HH
kann mir jemand sagen, warum die Msgbox in diesem Code nicht erscheint?
Private Sub Workbook_Open()
Dim check1$, check2$, check3$
check1 = Application.Version
check2 = Application.OperatingSystem
check3 = Application.UserName
If Application.Version = 11 Then
MsgBox "Hallo " & check3 & ", Sie arbeiten mit Excel 2007 oder höher." & vbLf & _
"Für diese Datei sollten Sie Excel 2003 nutzen, sonst " & vbLf & _
"ist kein einwandfreies Funktionieren gewährleistet."
End If
End Sub
(Hinweis: Ich habe hier =11 geschreiben, obwohl es >11 heißen müßte, aber ich hab kein 2007, um das zu testen)
Grüße - Jörg
Anzeige