HERBERS Excel-Forum - die Beispiele

Thema: Pfad gem. Pfadhierarchie ermitteln

Home

Gruppe

UDF

Problem

Die benutzerdefinierte Funktion liefert das dem Verzeichnis dieser Arbeitsmappe übergeordnete Verzeichnis gem. Parameter.

Lösung
Geben Sie die benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: Modul1

Function GetParentDir(iDir As Integer) As String
   Dim iChar As Integer, iAct As Integer
   Dim sDir As String
   sDir = ThisWorkbook.Path
   For iAct = 1 To iDir
      iChar = Len(sDir)
      Do Until Mid(sDir, iChar, 1) = "\"
         iChar = iChar - 1
      Loop
      sDir = Left(sDir, iChar - 1)
   Next iAct
   GetParentDir = sDir
End Function

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

Variablen Übergabe an Makro (andere Arbeitsmappe) Code erst nach Anzeige der Arbeitsmappe ausführen
Farben aus einer Arbeitsmappe übernehmen Eingabe in gesamter Arbeitsmappe prüfen
Hyperlink öffnet Arbeitsmappe mit Parametern Arbeitsmappendruck
Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage) Prüfung in anderer Arbeitsmappe
neue Arbeitsmappe speichern, ohne alte zu schliess Arbeitsblatt in neuer Arbeitsmappe speichern
Ergebnis UDF ändert, wenn Tabelle deaktiviert wird UDF soll nicht auf Daten anderer Dateien zugreifen
Datenabgleich über Arbeitsmappenverbindung Teilbereich einer Arbeitsmappe speichern
vor Ausführung einer UDF Zwischenspeicher "retten& UDF - Argument ohne " " übergeben möglic
Freigegebene Arbeitsmappe: Kommentare verschwinden Zellbezüge aus anderen Arbeitsmappen
Sicherung von Arbeitsmappen Makro - falsche Arbeitsmappe wird verwendet
Start Arbeitsmappe mit Kopfzeile versehen Makro für Arbeitsmappe
paralleles arbeiten in einer Arbeitsmappe Zeilen auswählen + in andere Arbeitsmappe kopieren
Arbeitsmappe schützen Arbeitsmappennamen teilw. auslesen
Blätter in Externer Arbeitsmappe einblenden Änderung von Arbeitsmappe
Pfadnamen und Teilnamen der Arbeitsmappe auslesen Suche Formel Summe A1 über alle Arbeitsmappen
Makro für alle Arbeitsmappen zur Verfügung stellen Arbeitsmappenmiteinander verknüpfen
Controlsource greift auf falsche Arbeitsmappe zu Verknüpfungen zu anderen Arbeitsmappen
Daten in freigegebene Arbeitsmappe importieren Freigegebene Arbeitsmappe und Zellen sperren
Arbeitsmappe ist nicht sichtbar Datenauswertung in einer Arbeitsmappe
Verknüpfung zwischen 2 Arbeitsmappen Arbeitsmappe für neue Blätter sperren
Arbeitsmappe auto. benennen Verknüpfung Arbeitsmappenschutz
Art Count Down Zähler bei Start der Arbeitsmappe Verlinkung externer Arbeitsmappen
Automatische Verknüpfung zu anderer Arbeitsmappe Makro erstellen, Daten in andere Arbeitsmappe
Daten aus versch. Mappen in eine Arbeitsmappe Daten in andere Arbeitsmappe übergeben
Verknüpfung zweier Arbeitsmappen Ausgeblendete Arbeitsmappe