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
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
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
Sub Excel_Version()
Dim c
c = Application.Version
MsgBox "Excel Version " & c
End Sub
Gruss Werner
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.
Fehler: "Environ_abfragen" funktioniert nicht
Fehler: Anwendung gibt falsche Version zurück
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.
Hier sind einige praktische Beispiele, wie du die vba version abfragen kannst, um unterschiedliche Operationen durchzufü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
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
vba application.version
, um verschiedene Eigenschaften von Excel zu nutzen. Dies kann dir helfen, spezifische Anpassungen für unterschiedliche Versionen vorzunehmen.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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen