1.15.3 Excel Umgebungs-/Systemvariablen auslesen
Bei der Verwendung von Makros kann es sinnvoll sein auf die vorhandenen Windows-Umgebungsvariablen zurückzugreifen.
 
 
So lässt sich zum Beispiel feststellen, wie der bei Windows angemeldete User heißt. 
Wird ein Makro auf verschiedenen Rechnern ausgeführt, könnte man damit zum Beispiel nachvollziehen, wer welche Änderungen vorgenommen hat.
Oder es lassen sich diverse Pfade die vom System verwendet werden auslesen.
 
 
Hier ein paar Beispiele:
Environ("USERNAME") = Name des angemeldeten Users
Environ("USERPROFILE") = Pfad des Nutzerprofils
Environ("ALLUSERSPROFILE") = Pfad für Benutzerprofile (ALLE)
Environ("APPDATA") = Pfad Anwendungsdaten
Environ("CommonProgramFiles") = Ordner für Gemeinsame Dateien
Environ("COMPUTERNAME") = Name des Computers
Environ("HOMEDRIVE") = Standardlaufwerk des Benutzers
Environ("OS") = Betriebssystemversion
Environ("Path") = Pfadangaben für Anwendungen
Environ("ProgramFiles") = Pfad zum Programme-Ordner
Environ("SystemDrive") = Laufwerk des Betriebssystems
Environ("SystemRoot") = Pfad des Betriebssystems
Environ("TEMP") = Pfad temporärer Ordner
Es gibt noch einige Umgebungsvariablen mehr. Um diese rauszufinden kann man statt der Bezeichnung auch eine Zahl zwischen 1 und 111 in die Klammern schreiben. 
 
 
Viel Spaß beim probieren :) Man kann sogar Hardwareinformationen auslesen!
 
 
 
 
 
 
'Code in ein normales Modul einfügen
Sub EnvironListe()
  On Error Resume Next
  Dim x As Byte, y As Byte
  x = 1
  For y = 1 To 111
    If Environ(y) <> "" Then
      Cells(x, 1) = Environ(y)
      x = x + 1
    End If
  Next y
End Sub
Seitenanfang