VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Benennung und Wert von Umgebungsvariablen ermitteln

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Anwendung