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