Herbers Excel-Forum - das Archiv
Versionen ermitteln | Herbers Excel-Forum
- Versionen ermitteln von walli vom 02.01.2010 11:25:40
- AW: Versionen ermitteln - von Mister B am 02.01.2010 11:40:54
- AW: Versionen ermitteln - von Hajo_Zi am 02.01.2010 12:15:56
- Geht das auch mit Namen z.b. - von walli am 02.01.2010 17:27:25
- Habe die Lösung gefunden -) - von walli am 02.01.2010 18:05:09
- Habe die Lösung gefunden -) - von walli am 02.01.2010 18:05:09
- AW: Versionen ermitteln - von Hajo_Zi am 02.01.2010 12:15:56
Betrifft: Versionen ermitteln
von: walli
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.
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
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
habe ich dies durch Windows 7 ergänzt.
gruß walli