Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Office Version per Makro abfragen

Office Version per Makro abfragen
10.03.2004 06:54:06
sansold
HAllo
ich möchte in einem Makro die Office Version abfragen und eine Schleife einnbauen, die je nach Version einen anderen Code ausführt.
Kann mir da jemand helfen?
Vielen Dank
sansold

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

Betreff
Datum
Anwender
Anzeige
AW: Office Version per Makro abfragen
10.03.2004 07:03:56
Willie
Hallo Sansold
so kannst du fast alles von deinem Rechnerabfragen

Sub info()
Cells(1, 1) = Application.UserName
Cells(2, 1) = Application.Name
Cells(3, 1) = Application.Version 'Das ist eigentlich das was du suchst!!!!!!
Cells(4, 1) = Application.International
Select Case Application.MailSystem
Case xlMAPI
Cells(5, 1) = "Das Mail-System ist Microsoft Mail"
Case xlPowerTalk
Cells(5, 1) = "Das Mail-System ist PowerTalk"
Case xlNoMailSystem
Cells(5, 1) = "Kein Mail-System installiert"
End Select
Cells(6, 1) = Application.OperatingSystem
Environ_abfragen
End Sub

Gruß
Willie
Rückmeldung wäre nett
Anzeige
AW: Office Version per Makro abfragen
10.03.2004 07:09:51
sansold
Vielen Dank Willie,
die Abfragen haben funktioniert.
Nur mit der Zeile "Environ_abfragen" kann das System nichts anfangen.
Gruß
sansold
AW: Office Version per Makro abfragen
10.03.2004 07:49:58
Willie
Ja o.K. Lösch es einfach raus ....
das ist ein anderes Makro mit dem man die regedit auslesen kann
ausser du kannst es auch brauchen dann mußt du das noch anfügen
Public

Sub Environ_abfragen()
i = 1
Do
Cells(i + 6, 1) = i
Cells(i + 6, 2) = Environ(i)
i = i + 1
Loop Until Environ(i) = ""
End Sub

Gruß
Willie
AW: Office Version per Makro abfragen
10.03.2004 08:07:58
Werner
Hallo sansold,
So kannst du die Excel Version rausfinden.


Sub Excel_Version()
Dim c
c = Application.Version
MsgBox "Excel Version " & c
End Sub
Gruss Werner
Anzeige

15 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige