Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

Versionen von Windows und Excel ermitteln

Mit dem folgenden Makro können Sie ganz einfach die installierte Windows- und Excel-Version ermitteln.

Sub Info_Windows_Excel()
'Ermittlung der installierten Windows- und der Excelversion
   antw = MsgBox("Betriebssystem: " & Application.OperatingSystem & Chr(10) & _
   "Excel-Version: " & Application.Version, vbInformation, "Info")
End Sub


Die Information wird über eine Message-Box ausgegeben.

Mit Hilfe des zweiten VBA-Codes wird die Excel-Version ausgelesen und die Version ebenfalls mit Hilfe einer Message-Box ausgegeben. Der Vorteil dieses Makros besteht darin, dass Sie abhängig von der Excel-Version weitere Befehle ausführen können. So werden im Beispiel nur bei Excel 2010 die Blattregisterkarten ausgeblendet, bei allen anderen Excel-Versionen nicht. Auf diese Weise kann Excel abhängig von der Excel-Version individualisiert werden.

Sub Excel_Version_auslesen()
'** Auslesen, welche Excel-Version verwendet wird
Select Case Val(Application.Version)
 Case 8 'Excel 97
 MsgBox "Excel-Version 97"
 
 Case 9 'Excel 2000
 MsgBox "Excel-Version 2000"
 
 Case 10 'Excel 2002/XP
 MsgBox "Excel-Version 2002/XP"
 
 Case 11 'Excel 2003
 MsgBox "Excel-Version 2003"
 
 Case 12 'Excel 2007
 MsgBox "Excel-Version 2007"
 Case 14 'Excel 2010
 ActiveWindow.DisplayWorkbookTabs = False
 MsgBox "Excel-Version 2010"
 
 Case 15 'Excel 2013
 MsgBox "Excel-Version 2010"
 
 Case Else
 MsgBox "Die Programmversion konnte nicht ermittelt werden"
 
 End Select
End Sub

 

 

   

Relevante Artikel

  • Textzeichen aus Zellen entfernen (nur Ziffen auslesen)

    108038   Mit dem folgenden Beispiel werden aus Zellen alle Zeichen außer Zahlen entfernt.Dies kann nach einem Datenimport notwendig werden. Hier sind evtl. Leerzeichen oder andere undefinierbare Zeichen...

  • Autokorrekturliste auslesen

    Wie alle Office-Programme, enthält auch Excel die Autokorrektur-Funktion. Ab Excel 2007 ist diese über die Backstage (Datei / Excel Optionen / Dokumentprüfung / Schaltfläche...

  • Ermittlung der Office-Version und Version des Betriebssystems

    108001 Mit diesem Makro kann geprüft werden, welche Office-Version bzw. welches Betriebssystem installiert ist! Im Programmablauf kann verzweigt werden und der Code entsprechend der installierten...

  • UserName ermitteln

    Dieses Makro liest den UserName (Benutzernamen) des eingeloggten Benutzers aus. Dies ist für Dateien/Programme interessant, die nur für bestimmte Benutzer freigegeben werden sollen. Damit lässt sich eine...

  • Zellinformationen per Funktion auslesen

    112019 Diese Funktion liest verschiedene Zellinformationen aus und zeigt diese an.Public Function zellinfo(zelle As Range, i As Integer)Select Case iCase 1    zellinfo = zelle.AddressCase 2    zellinfo = zelle.ValueCase 3    zellinfo = zelle.FormulaLocalCase 4    If zelle.HasFormula = True Then        zellinfo = "Formel"    ElseIf IsNumeric(zelle) Then        zellinfo = "Zahl"    Else: zellinfo = "Text"    End IfCase Else    zellinfo = "nicht vergeben"End SelectEnd FunctionDie Funktion rufen Sie wie folgt auf:=zellinfo(zelle;paramter) Folgende...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013