Hi Leute gibt es eine möglichkeit das aktive Betriebssystem herauszubekommen ?Z.B msgbox = betriebssystem
Danke für eure Hilfe !
folgende Zeilen in ein Modul eingeben:
Declare Function api_GetWindowsDirectory Lib "kernel32" _
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal _
nSize As Long) As Long
Function GetWinDir() As String
Dim lpBuffer As String * 255
Dim length As Long
length = api_GetWindowsDirectory(lpBuffer, Len(lpBuffer))
GetWinDir = Left(lpBuffer, length)
End Function
Sub WindowsVerzeichnis()
Antwort = MsgBox("Auf diesem System wurde" & vbCrLf & _
"Windowsim im Verzeichnis " & vbCrLf & vbCrLf & _
Space(8) & GetWinDir & vbCrLf & vbCrLf & _
"installiert.", vbInformation, "Windows-Verzeichnis")
End Sub
mit call WindowsVerzeichnis
dann aufrufen
auch mal im Archiv nachsehen ;-)
AxelG
|
Hallo,
mit folgender Formel bekommst Du diese Info:
=INFO("Sysversion")
Gruß
M. Wendeler
http://www.wendelers.de
Dankeee gleich mal testen !
Habs gleich getestet das geht aber nicht zeigt nur an in welchem Verzeichniss Windows installiert ist und nicht Win98 , Win95 , Winme Win2000 usww... geht das evtl auch ?
kombiniere die Antwort vom Michael und meine, dann hast Du alles was Du brauchst ;-)
Danke auch dir das funzt ganz gut nur ich breuchte es für VBA
Also irgendwie versteh ich das nicht !Ist doch ne formel?Kannst du mir nicht helfen ?
|
|
Hallo,
dann schreib diese Formel in Zell A1 und nimm folgendes Makro:
Sub Info()
MsgBox ("Ihr aktuelles Betriebssystem ist: " & [a1])
End Sub
Gruß
M. Wendeler
http://www.wendelers.de
Tausend Danek klappt super !!
Declare Function api_GetWindowsDirectory Lib "kernel32" _
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal _
nSize As Long) As Long
Function GetWinDir() As String
Dim lpBuffer As String * 255
Dim length As Long
length = api_GetWindowsDirectory(lpBuffer, Len(lpBuffer))
GetWinDir = Left(lpBuffer, length)
End Function
Sub WindowsVerzeichnis()
'=INFO("Sysversion") in Zelle A1 eintragen !
Antwort = MsgBox("Auf diesem System wurde" & vbCrLf & _
[a1] & " im im Verzeichnis " & vbCrLf & vbCrLf & _
Space(8) & GetWinDir & vbCrLf & vbCrLf & _
"installiert.", vbInformation, "Windows-Verzeichnis")
End Sub
versuche diesen Code, WICHTIG, wie Michal schreibt,
=INFO("Sysversion")
in Zelle A1 eintragen,
und mit call WindowsVerzeichnis
viel Erfolg !
AxelG