Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Environ-Funktion (Beispiel)

In diesem Beispiel wird die Environ-Funktion verwendet, um die Eintragsnummer und Länge der PATH-Anweisung aus der Tabelle der Umgebungszeichenfolgen zu bestimmen und anzuzeigen. Nicht verfügbar auf dem Macintosh.

Dim UmgZF, Indx, Mldg, PfadLänge    ' Variablen deklarieren.
Indx = 1    ' Index mit 1 initialisieren.
Do
    UmgZF = Environ(Indx)    ' Umgebungsvariable 
                ' bestimmen.
    If Left(UmgZF, 5) = "PATH=" Then    ' PATH-Eintrag prüfen.
        PfadLänge = Len(Environ("PATH"))    ' Länge bestimmen.
        Mldg = "PATH-Eintrag = " & Indx & " und Länge = " & PfadLänge
        Exit Do
    Else
        Indx = Indx + 1    ' Kein PATH-Eintrag,
    End If    ' also hochzählen.
Loop Until UmgZF = ""
If PfadLänge > 0 Then
    MsgBox Mldg    ' Meldung anzeigen.
Else
MsgBox "Es existiert keine PATH-Umgebungsvariable."
End If