Microsoft Excel

Herbers Excel/VBA-Archiv

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

Versionen ermitteln | Herbers Excel-Forum


Betrifft: Versionen ermitteln von: walli
Geschrieben am: 02.01.2010 11:25:40

Guten Morgen,
erst mal, ALLEN ein gesundes neues Jahr !!!

Habe eine Frage, gibt es ein Makro mit dem ich die installierte
Windowsversion (auch Windows 7) u. die installierte Officeversion,
ermitteln kann ?

mfg Walli

  

Betrifft: AW: Versionen ermitteln von: Mister B
Geschrieben am: 02.01.2010 11:40:54

Hallo Walli

so vielleicht?

Sub test

MsgBox Application.Version
MsgBox Application.OperatingSystem

End Sub

Gruß
Martin


  

Betrifft: AW: Versionen ermitteln von: Hajo_Zi
Geschrieben am: 02.01.2010 12:15:56

Hallo Martin,

das ist nicht ganz korrekt. Bei mir wird 32 bit ausgelesen, ich habe aber 64 bit.

GrußformelHomepage


  

Betrifft: Geht das auch mit Namen z.b. von: walli
Geschrieben am: 02.01.2010 17:27:25

Hallo Martin,
danke.
Geht das auch mit Namen zum Beispiel Office 2003 oder Windows xp ???

mfg Walli


  

Betrifft: Habe die Lösung gefunden -) von: walli
Geschrieben am: 02.01.2010 18:05:09

Hallo Martin,
habe die Lösung gerade in Google gefunden.

Sub LeseWindowsVersion()
Dim a As String
Dim Version As String
Version = Application.OperatingSystem
Select Case Version
Case "Windows (32-bit) NT 4.00"
 Version = "Windows NT 4.0"
Case "Windows (32-bit) 4.10"
 Version = "Windows 98"
Case "Windows (32-bit) NT 5.00"
 Version = "Windows 2000"
Case "Windows (32-bit) NT 5.01"
 Version = "Windows XP"
Case "Windows (32-bit) NT 6.00"
 Version = "Windows Vista"
Case "Windows (32-bit) NT 6.01"
 Version = "Windows 7"
End Select
a = MsgBox("Auf Ihrem System läuft: " & vbLf & Version, vbOKOnly, "Windows-Version")
End Sub
Da bei mir dies raus kam: Windows (32-bit) NT 6.01
habe ich dies durch Windows 7 ergänzt.

gruß walli


Beiträge aus den Excel-Beispielen zum Thema "Versionen ermitteln"