Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
328to332
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Betriebssystem auslesen

Betriebssystem auslesen
27.10.2003 10:08:42
Detlef D
Guten Morgen zusammen,
weiß vieleicht jemand wie man auslesen kann, mit welchem Betriebssystem der Rechner läuft auf dem man sich gerade befindet? Habe das Problem das ich ein Makro habe das sich etwas unterschiedlich verhalten muß, je nach dem auf welchem Betriebssystem es gestartet wird.

Vielen Dank schon mal...

Gruß,
Detlef

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Betriebssystem auslesen
27.10.2003 10:14:47
Hajo_Zi
Hallo Detlef


Sub tes()
If Application.OperatingSystem = "Windows (32-bit) NT 5.00" Then
MsgBox "Windows 2000"
ElseIf Application.OperatingSystem = "Windows (32-bit) NT 5.01" Then
MsgBox "XP Pro"
End If
End Sub


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.


Anzeige
AW: Betriebssystem auslesen
27.10.2003 10:20:58
ANdreas
Hallo Detlef,

das geht so:

Private Declare Function GetVersionEx Lib "kernel32" Alias _
"GetVersionExA" (lpVersionInformation As OSVERSIONINFO) _
As Long

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Const VER_PLATFORM_WIN32_WINDOWS = 1
Const VER_PLATFORM_WIN32_NT = 2


Private Sub ErmittelnBS()
Dim PlatForm As String, OSVersion As OSVERSIONINFO
OSVersion.dwOSVersionInfoSize = Len(OSVersion)
GetVersionEx OSVersion
PlatForm = "Unbekanntes Betriebssystem"
With OSVersion
If .dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
If .dwMinorVersion = 0 Then
PlatForm = "Windows 95"
If .szCSDVersion = "B" Then
PlatForm = PlatForm & " OSR2"
Else
PlatForm = PlatForm & Left$(.szCSDVersion, 2)
End If
ElseIf .dwMinorVersion = 10 Then
PlatForm = "Windows 98"
If .szCSDVersion = "A" Then
PlatForm = PlatForm & " SE"
End If
ElseIf .dwMinorVersion = 90 Then
PlatForm = "Windows ME"
Else
PlatForm = "Win 32s"
End If
ElseIf .dwPlatformId = VER_PLATFORM_WIN32_NT Then
If .dwMajorVersion = 4 Then
PlatForm = "Windows NT"
ElseIf .dwMajorVersion = 5 Then
If .dwBuildNumber = "2195" Then
PlatForm = "Windows 2000"
ElseIf .dwBuildNumber = "2600" Then
PlatForm = "Windows XP"
End If
End If
End If
End With
MsgBox "Aktuelles Betriebssystem: " & vbCrLf & _
vbCrLf & PlatForm
End Sub


(Quelle: http://www.vbgamer.de/vb/tipps/tip0003.shtml)

Hoffe das hilft weiter...
Andreas
Anzeige
AW: Betriebssystem auslesen
27.10.2003 10:35:48
Thorsten
Evtl. reicht dir ja auch schon der output von INFO("Sysversion")
- wenn es das in Offcie 97 schon gibt...
Die Hilfe zu INFO gibt dir noch mehr hilfreiche Abfragemöglichkeiten
AW: Betriebssystem auslesen
27.10.2003 10:36:33
Reinhard
Hi Detlef,
=INFO("Sysversion")
Gruß
Reinhard
Vielen Dank
27.10.2003 11:28:23
Detlef D
Vielen Dank...

Werde mal schauen was die beste Möglichkeit für mich ist.

Gruß,
Detlef

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige