Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Benennung und Wert von Umgebungsvariablen ermitteln

Gruppe

Anwendung

Problem

Die benutzerdefinierten Funktionen in den Zellen B1 und B2 sollen die Benennung und den Wert der jeweiligen Umgebungsvariablen ermitteln.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: Modul1

Function Umgebung(bln As Boolean)
   Dim sTxt As String, sFirst As String, sSecond As String
   sTxt = Environ(27)
   sFirst = Left(sTxt, InStr(sTxt, "=") - 1)
   sSecond = Right(sTxt, Len(sTxt) - InStr(sTxt, "="))
   If bln Then
      Umgebung = sFirst
   Else
      Umgebung = sSecond
   End If
End Function