Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Umgebungsvariablen per VBA
zurück: Formeln durch Ergebnisse ersetzen weiter: Tutorial Excel als pdf Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Mich_gibt_es_nicht_mehr
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Aug 2005, 18:09
Rufname:

Umgebungsvariablen per VBA - Umgebungsvariablen per VBA

Nach oben
       

Im Internet egfunden udn doch öfters mal gefragt im Forum:


Code:
Sub Daten_des_Betriebssystems_anzeigen()
    MsgBox "Pfad für AllUsers: ---->   " & (Environ("ALLUSERSPROFILE")) ' Pfad für AllUsers
    MsgBox "Pfad Anwendungsdaten: ---->   " & (Environ("APPDATA")) ' Pfad Anwendungsdaten
    MsgBox "Pfad Gemeinsame Dateien: ---->   " & (Environ("CommonProgramFiles")) ' Pfad Gemeinsame Dateien
    MsgBox "Name des Computers im Netzwerk: ---->   " & (Environ("COMPUTERNAME")) ' Name des Computers im Netzwerk
    MsgBox "Standardlaufwerk des Benutzers: ---->   " & (Environ("HOMEDRIVE")) ' Standardlaufwerk des Benutzers
    MsgBox "Betriebssystem: ---->   " & (Environ("OS")) ' Betriebssystem
    MsgBox "Pfadangaben für Anwendungen: ---->   " & (Environ("Path")) ' Pfadangaben für Anwendungen
    MsgBox "Pfad zum Programme-Ordner: ---->   " & (Environ("ProgramFiles")) ' Pfad zum Programme-Ordner
    MsgBox "Laufwerk des Betriebssystems: ---->   " & (Environ("SystemDrive")) ' Laufwerk des Betriebssystems
    MsgBox "Pfadangabe des Betriebssystems: ---->   " & (Environ("SystemRoot")) ' Pfadangabe des Betriebssystems
    MsgBox "Pfad temporärer Ordner: ---->   " & (Environ("TEMP")) ' Pfad temporärer Ordner
    MsgBox "Name des Nutzers im Netzwerk: ---->   " & (Environ("USERNAME")) ' Name des Nutzers im Netzwerk
    MsgBox "Pfad des Nutzerprofils: ---->   " & (Environ("USERPROFILE")) ' Pfad des Nutzerprofils
    MsgBox "name des Windows-Verzeichnisses: ---->   " & (Environ("windir")) ' name des Windows-Verzeichnisses
' und zusätzlich noch ein paar weitere Angaben. Alle möglichen Angaben
' bekommt ihr beispielsweise mit einer Schleife:
    Dim Zaehler As Integer
    For Zaehler = 1 To 100
        Debug.Print Zaehler & Environ(Zaehler)
    Next
End Sub



Gruß Nicklos

tom_r - 08. Aug 2005, 08:28 hat folgendes geschrieben:
Moin,

hier noch eine Version, die die Umgebungsvariablen in einem Tabellenblatt auflistet (auch irgendwo gefunden)

Code:
Sub Umgebungsvarriablen_auslesen()
  Dim iIndex As Integer
  Dim sResult As String
  Dim sKey As String
  Dim sValue As String
  Dim iPos As Integer
 
    ' Environ() durchlaufen
    ' Beginnen mit 1
    iIndex = 1
    Do
      ' Umgebungsvariable auslesen
      sResult = Environ(iIndex)
   
      ' Wird ein Leerstring zurückgegeben, so ist das
      ' Ende der Liste erreicht
      If sResult <> "" Then
     
        ' = suchen
        iPos = InStr(sResult, "=")
        sKey = Left$(sResult, iPos - 1)
        sValue = Mid$(sResult, iPos + 1)
     
 
        'der Tabelle hinzufügen
        Cells(iIndex, 1).Value = sKey
        Cells(iIndex, 2).Value = sValue
        Cells(iIndex, 3).Value = iPos
      End If
   
      ' Index um 1 erhöhen
      iIndex = iIndex + 1
    Loop Until sResult = ""
End Sub


Gruß

Thomas
fridgenep
Gast


Verfasst am:
21. Apr 2006, 21:39
Rufname:


AW: Umgebungsvariablen per VBA - AW: Umgebungsvariablen per VBA

Nach oben
       

Bitte hier in den Tipps und Tricks keine Fragen zu den Beiträgen.

Wenn ihr eine Frage zu diesem Tipp habt, dann bezieht euch bitte im Forum mit einem Link auf diesen Tipp.

So bleiben die Tipps und Tricks übersichtlich.

Beitrag für weitere Fragen gesperrt.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Bezug auf Exceltabellenblatt per Index 4 Chappi 3160 10. Aug 2008, 13:36
Chappi Bezug auf Exceltabellenblatt per Index
Keine neuen Beiträge Excel Formeln: variabel auf versch. Tabellenblätter per Formel zugreifen 5 Topper.Erfde 1114 29. Jul 2008, 14:15
Gast variabel auf versch. Tabellenblätter per Formel zugreifen
Keine neuen Beiträge Excel Formeln: Text per Formel hochstellen 1 Jackson 2515 18. Feb 2008, 18:13
< Peter > Text per Formel hochstellen
Keine neuen Beiträge Excel Formeln: Per Makro Datum in die Zelle kopieren 4 Gast 7351 02. Feb 2008, 12:56
Trustchen Per Makro Datum in die Zelle kopieren
Keine neuen Beiträge Excel Formeln: Per Doppelklick Zahl in Zelle einfügen 1 Frank4444 408 30. Dez 2007, 00:58
< Peter > Per Doppelklick Zahl in Zelle einfügen
Keine neuen Beiträge Excel Formeln: Für Anfänger: Zellen-Farbe per Checkbox ändern.. 17 Tetrikus 6603 21. Dez 2007, 01:18
Hübi Für Anfänger: Zellen-Farbe per Checkbox ändern..
Keine neuen Beiträge Excel Formeln: Per Wenn-Funktion Werte vergleichen und ausgeben 6 boxplot 1230 14. Sep 2007, 18:24
urs Per Wenn-Funktion Werte vergleichen und ausgeben
Keine neuen Beiträge Excel Formeln: Tabellenblatt in Formel per Index ansprechen 6 BlueDolphin 2796 12. Sep 2007, 15:53
Robsl Tabellenblatt in Formel per Index ansprechen
Keine neuen Beiträge Excel Formeln: Daten abrufen in Excel möglich oder doch nur per Datenbank? 7 fatcartman 1502 11. Jun 2007, 12:29
fatcartman Daten abrufen in Excel möglich oder doch nur per Datenbank?
Keine neuen Beiträge Excel Formeln: Per Button Felder leeren 8 Gast 1202 22. Mai 2007, 11:05
c0bRa Per Button Felder leeren
Keine neuen Beiträge Excel Formeln: Auswahl per Pull Down 30 sisqonrw 6166 05. Apr 2006, 15:48
ae Auswahl per Pull Down
Keine neuen Beiträge Excel Formeln: Auffinden von Duplikaten per Formel 2 andrehamburg 607 25. März 2006, 18:10
andrehamburg Auffinden von Duplikaten per Formel
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks