Gruppe
UDF
Bereich
Anwendung
Thema
Benennung und Wert von Umgebungsvariablen ermitteln
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