Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Versionen ermitteln | Herbers Excel-Forum

Forumthread: Versionen ermitteln

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

Anzeige

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.

Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige