Thema: Benennung und Wert von Umgebungsvariablen ermitteln

Home

Gruppe

UDF

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

Laufzeitfehler 1004: Anwendungs- oder objektorient	Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage)
Ergebnis UDF ändert, wenn Tabelle deaktiviert wird	UDF soll nicht auf Daten anderer Dateien zugreifen
Exel immer in neuer Anwendung öffnen	vor Ausführung einer UDF Zwischenspeicher "retten&
UDF - Argument ohne " " übergeben möglic	anwendungen öffnen
VBA Anwendung schließen	Beliebige Anwendung in VBA schließen
AW: Fertige Anwendungen/Formulare	Fertige Anwendungen/Formulare.
UDF- Beschreibung	Anwendungs- oder objektori. Fehler
Berechnungsdauer einer UDF messen	Laufende Anwendung ermitteln und beenden
Laufzeitfehler 1004, Anwendungs und obj.	eine datei in anwendung
Diagramme in Vektorformat für andere Anwendungen?	Nur eine Mappe pro Anwendung
Anwendung im Vordergrund	Hintergrudfarbe ändern??? Finde keine Lösung :-(
Anwendungs- oder objektdefinierter Fehler	andere anwendung steuern, mauszeiger auslesen?
Probleme mit IsNumeric, Code per UDF	UDF mittels Ereignis aktualisieren?
if then Anwendung in einem Makro	MsgBox anzeigen / Zellen auswählen / Anwendung ?
Formatierung für fremde Anwendung	Meldung bei nicht geöffneter Anwendung
Name der aktiven Anwendung	Anwendungs- oder Objektbezogener Fehler
UDF, Minuszeichen vor Zahl auswerten	Anwendungen in verschiedenen Fenstern öffnen
Anwendungs- oder objektdefinierter Fehler	nach Worksheet_Change werden UDF nicht ausgewertet
Problem mit dem Schließen der Excel-Anwendung	Anwendungen schliessen und Windows herunterfahren
Excel anhalten bei UDF	Anwendungsfehler With ThisWorkbook.Worksheets ...
UDF	Hardcopy aus anderer Anwendung einfügen
UDF, Rückgabewert Text anstelle Zahl	Aufruf einer UDF, Fehler Objekt erforderlich
SQL in UDF	Tabelle aus anderer Anwendung formatieren
Wechsel zwischen Anwendungen mit VBA	andere Excelanwendung öffnen
Anwendung aufrufen per Makro	ChDir-Anwendung