Microsoft Excel

Herbers Excel/VBA-Archiv

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

Excelversion prüfen | Herbers Excel-Forum


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

  

Betrifft: If Val(Application.Version) > 11 von: HaHoBe
Geschrieben am: 10.12.2009 19:15:42

...


  

Betrifft: aha - danke! Wieder was gelernt :-) oT von: Jörg-HH
Geschrieben am: 10.12.2009 19:22:01




Beiträge aus den Excel-Beispielen zum Thema "Excelversion prüfen"