Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Office Version per Makro abfragen

Forumthread: 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
Anzeige

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

Infobox / Tutorial

Office Version per Makro abfragen


Schritt-für-Schritt-Anleitung

Um die Office Version per Makro abzufragen, kannst du folgenden VBA-Code verwenden. Dieser Code gibt die Version in einer Excel-Zelle aus:

Sub info()
    Cells(1, 1) = Application.UserName
    Cells(2, 1) = Application.Name
    Cells(3, 1) = Application.Version ' Hier wird die Office Version abgefragt
    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
End Sub

Führe diesen Code in einem Modul in Excel VBA aus, um die Excel Version anzuzeigen.


Häufige Fehler und Lösungen

  • Fehler: "Environ_abfragen" funktioniert nicht

    • Lösung: Diese Zeile bezieht sich auf ein anderes Makro. Du kannst sie einfach löschen, wenn du diese Funktion nicht benötigst.
  • Fehler: Anwendung gibt falsche Version zurück

    • Lösung: Stelle sicher, dass du die richtige Version von Office installiert hast und dass der Code in der richtigen Umgebung (Excel VBA) ausgeführt wird.

Alternative Methoden

Eine weitere Möglichkeit, die Excel Version herauszufinden, ist die Verwendung einer MsgBox. Hier ist ein Beispiel:

Sub Excel_Version()
    Dim c As String
    c = Application.Version
    MsgBox "Excel Version: " & c
End Sub

Diese Methode zeigt die Version in einem Popup-Fenster an, wenn das Makro ausgeführt wird.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie du die vba version abfragen kannst, um unterschiedliche Operationen durchzuführen:

  1. Version prüfen und unterschiedliche Codes ausführen:
Sub Version_check()
    Dim version As String
    version = Application.Version

    If version < "15.0" Then
        MsgBox "Ältere Excel Version erkannt"
    Else
        MsgBox "Aktuelle Excel Version erkannt"
    End If
End Sub
  1. Daten in Abhängigkeit von der Version abrufen:
Sub Conditional_Code()
    Select Case Application.Version
        Case "16.0"
            ' Code für Office 2016
        Case "15.0"
            ' Code für Office 2013
        Case Else
            ' Code für andere Versionen
    End Select
End Sub

Tipps für Profis

  • Nutze vba application.version, um verschiedene Eigenschaften von Excel zu nutzen. Dies kann dir helfen, spezifische Anpassungen für unterschiedliche Versionen vorzunehmen.
  • Halte deinen Code modular, sodass du bei Änderungen nur bestimmte Teile anpassen musst.
  • Teste deine Makros in einer sicheren Umgebung, bevor du sie in produktiven Arbeitsblättern einsetzt.

FAQ: Häufige Fragen

1. Welche Excel Version habe ich? Um deine Excel-Version herauszufinden, verwende den Code Application.Version in einem VBA-Modul.

2. Kann ich die Office Version programmgesteuert abfragen? Ja, du kannst die Office Version mit Application.Version in VBA abfragen, wie in den obigen Beispielen gezeigt.

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