Excelversion prüfen | Herbers Excel-Forum

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Excelversion prüfen | Herbers Excel-Forum

Excelversion prüfen von Jörg-HH vom 10.12.2009 19:07:29

If Val(Application.Version) > 11 - von HaHoBe am 10.12.2009 19:15:42
- aha - danke! Wieder was gelernt :-) oT - von Jörg-HH am 10.12.2009 19:22:01

Betrifft: Excelversion prüfen von: Jörg-HH
Geschrieben am: 10.12.2009 19:07:29

Guten Abend zusammen,

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