Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Versionen ermitteln | Herbers Excel-Forum

Versionen ermitteln
02.01.2010 11:25:40
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Versionen ermitteln
02.01.2010 11:40:54
Mister B
Hallo Walli
so vielleicht?
Sub test
MsgBox Application.Version
MsgBox Application.OperatingSystem
End Sub

Gruß
Martin
AW: Versionen ermitteln
02.01.2010 12:15:56
Hajo_Zi
Hallo Martin,
das ist nicht ganz korrekt. Bei mir wird 32 bit ausgelesen, ich habe aber 64 bit.

Geht das auch mit Namen z.b.
02.01.2010 17:27:25
walli
Hallo Martin,
danke.
Geht das auch mit Namen zum Beispiel Office 2003 oder Windows xp ???
mfg Walli
Habe die Lösung gefunden -)
02.01.2010 18:05:09
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
Da bei mir dies raus kam: Windows (32-bit) NT 6.01
habe ich dies durch Windows 7 ergänzt.
gruß walli
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige