Pfad des Windows Programmordners herausfinden?

Forumthread: Pfad des Windows Programmordners herausfinden?

Kasimir

Hallo an alle!
Ich stehe vor einem Problem. Ich möchte per VBA eine Datei in den Windows Programm Ordner kopieren. Das Kopieren per VBA ist nicht das Problem. Was mein Problem ist, wie bekomme ich heraus, wie der Programmordner in der jeweiligen Windowsversion heißt? In jeder Windowsversion, also ob XP, Vista, Windows7 oder einer neuen Windowsversion heißen die ja zum Teil immer anders. Wie bekomme ich denn nun einen Namen heraus oder gibt es da einen Standardbefehl, der mir den Namen nennt?
Danke Euch,
Kasimir

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Pfad des Windows Programmordners herausfinden?

02.07.2011 08:57:38

Hajo_Zi

Hallo Kasimir,
Environ(24)

AW: Pfad des Windows Programmordners herausfinden?

02.07.2011 08:57:54

CitizenX

Hi,
meinst du sowas?

Sub SystCheck ()
With Application
MsgBox " Operatingsystem:" & .OperatingSystem & "/Version: " & .Version
End With
End Sub

Aus dem Archiv!
Grüße
Steffen

AW: Pfad des Windows Programmordners herausfinden?

02.07.2011 09:03:06

Tino

Hallo,
versuche es mal mit
Environ$("ProgramFiles")
Bsp.

msgbox Environ$("ProgramFiles")

Gruß Tino

AW: Pfad des Windows Programmordners herausfinden?

02.07.2011 09:08:42

Kasimir

Hallo Hajo, hallo Steffen, hallo Tino!
Tino's Tipp war der Richtige. Genau das suchte ich. Danke Dir.
Hajos und Steffens Tipp waren nicht das, was ich gesucht habe, aber trotzdem danke dafür.
Schönes WE noch,
Kasimir

Infobox / Tutorial

Pfad des Windows Programmordners in Excel ermitteln

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um den Pfad des Windows Programmordners in Excel zu ermitteln, kannst Du verschiedene Methoden nutzen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Füge ein neues Modul hinzu:
- Rechtsklick auf "VBAProject (DeineArbeitsmappe)" > Einfügen > Modul.

Kopiere den folgenden VBA-Code in das Modul:

Sub ZeigeProgramFilesPfad()
   MsgBox "Der Pfad des Programmordners ist: " & Environ$("ProgramFiles")
End Sub

Führe das Makro aus:
- Gehe zurück zu Excel, drücke ALT + F8, wähle ZeigeProgramFilesPfad und klicke auf "Ausführen".
Das Ergebnis wird dir als Meldung angezeigt.

Häufige Fehler und Lösungen

Fehler: "Variable nicht definiert"
- Lösung: Stelle sicher, dass Du die korrekten VBA-Befehle verwendest. Überprüfe, ob Du Environ$ korrekt geschrieben hast.
Fehler: Meldung wird nicht angezeigt
- Lösung: Überprüfe, ob Du das Makro korrekt ausgeführt hast. Eventuell musst Du die Makros in den Excel-Optionen aktivieren.

Alternative Methoden

Es gibt mehrere Wege, um den Windows-Pfad des Programmordners zu ermitteln:

Verwendung von Application:

Sub SystCheck()
   With Application
       MsgBox "Betriebssystem: " & .OperatingSystem & " / Version: " & .Version
   End With
End Sub

CMD-Befehl in Excel ausführen:
- Du kannst auch über die Eingabeaufforderung den Pfad ermitteln und diesen dann in Excel verwenden.

Praktische Beispiele

Hier sind einige praktische Beispiele, die Dir helfen können, den Pfad des Windows Programmordners zu nutzen:

Erstellen eines Verknüpfungsskripts:

Sub KopiereDatei()
   Dim Quelle As String
   Dim Ziel As String
   Quelle = "C:\DeinDateipfad\deineDatei.txt"
   Ziel = Environ$("ProgramFiles") & "\deineDatei.txt"
   FileCopy Quelle, Ziel
   MsgBox "Datei wurde kopiert nach: " & Ziel
End Sub

Überprüfen des Erstellers einer Datei:
- Um den "Ersteller einer Datei herauszufinden", kannst Du die Datei-Eigenschaften in VBA abfragen.

Tipps für Profis

Nutze Environ für andere Umgebungsvariablen, um weitere Pfade zu ermitteln, z.B.:
```
MsgBox Environ$("USERPROFILE") 'Zeigt das Benutzerprofil an
```
Du kannst auch den Pfad des Benutzerverzeichnisses oder des temporären Verzeichnisses abfragen, um flexibler zu arbeiten.

FAQ: Häufige Fragen

1. Wie finde ich den Ersteller einer Datei heraus?
Du kannst den Ersteller einer Datei über die Eigenschaften der Datei ermitteln oder entsprechende VBA-Methoden nutzen, um diese Informationen auszulesen.

2. Funktioniert dies in allen Excel-Versionen?
Ja, die oben beschriebenen Methoden sind in den meisten aktuellen Excel-Versionen anwendbar, einschließlich Excel 2010 bis 2021.

Beliebteste Forumthreads (12 Monate)

Pfad des Windows Programmordners herausfinden?

Forumthread: Pfad des Windows Programmordners herausfinden?

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Pfad des Windows Programmordners in Excel ermitteln

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Pfad des Windows Programmordners herausfinden?

Forumthread: Pfad des Windows Programmordners herausfinden?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Pfad des Windows Programmordners in Excel ermitteln

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread