Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Windows und Office Version auslesen

Windows und Office Version auslesen
19.02.2007 13:27:00
R.Schmitt
Mahlzeit liebe Forumsgemeinde,
um mir die Rennerei durch´s Haus zu ersparen will ich mit
einem kleinen Makro die Windows und Office versionen
auf den Rechnern, der lieben Kollegen auslesen.
Problem :
Manch einer hat Excel und Word andere zusätzlich auch
Power Point.
Mit
Range("A1") = Application.version
Range("b1") = Application.OperatingSystem
Range("c1") = Application.UserName
krieg ich das ja für Windows und Excel hin.
Nur wie komme ich an die Word, resp. Power-Point Version ?
Herzlichen Dank
R.Schmitt

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Windows und Office Version auslesen
19.02.2007 13:46:44
IngGi
Hallo R. Schmitt,
so vielleicht?

Sub test()
Dim wdApp As Object
Dim ppApp As Object
On Error Resume Next
Set wdApp = CreateObject("Word.Application")
Set ppApp = CreateObject("Powerpoint.Application")
On Error GoTo 0
With Application
   Range("A1") = .Version
   Range("B1") = .OperatingSystem
   Range("C1") = .UserName
End With
If Not wdApp Is Nothing Then
   With wdApp
      Range("A2") = .Version
      Range("B2") = .OperatingSystem
      Range("C2") = .UserName
   End With
End If
If Not ppApp Is Nothing Then
   With ppApp
      Range("A3") = .Version
      Range("B3") = .OperatingSystem
      Range("C3") = .UserName
   End With
End If
End Sub

Gruß Ingolf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige