Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pfad in Funktion

Pfad in Funktion
03.12.2020 07:25:29
Bernhard
Hallo
Ich habe bisher eine Formel in etwa so genutzt:
='https://xy.sharepoint.com//Verwaltung/Projektadministration/[Firma.xlsm]Arbeitszeit'!$E35
Nun nutzen neu mehrere Personen von unterschiedlichen Computern aus diese Datei.
Wie muss ich den Pfad angeben, wenn er nicht mehr absolut sondern einfach einen Ordner tiefer liegt?
So geht das leider nicht: ='../Projektadministration/[Firma.xlsm]Arbeitszeit'!$E35
Kann mir da jemand helfen?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad in Funktion
03.12.2020 10:59:00
Yal
Hallo Bernhard,
die gesuchte Formel heisst INDIREKT. Der Parameter wird als Text übergeben, was das Einbinden einer änderbare Zelle ermöglicht, am Bsp A1 (Pfad) und B1 (Dateiname):
=INDIREKT("https://xy.sharepoint.com//Verwaltung/"&$A$1&"/["&$B$1&"]Arbeitszeit'!"&ZELLE("Adresse"; $E35))
Viel Erfolg
Yal
AW: Pfad in Funktion
04.12.2020 09:57:23
Bernhard
Vielen Dank, Yal, für deine Antwort.
Leider ist das nicht der Weg, den ich suche...
Im Pfad https://xy.sharepoint.com/
ist üblicherweise mein Name drin. Bei einem anderen Nutzer ein anderer Name. Aus diesem Grund darf ich diesen Pfad nicht verwenden. Ich müsste einfach vom Ort, wo sich das Dokument befindet, einen Ordner tiefer gehen. Mit DOS hätte man das mit ../ gemacht.
Doch wie man das in einer Formel macht, weiss ich leider nicht.
Anzeige
AW: Pfad in Funktion
04.12.2020 11:31:06
Yal
Werter Bernhard,
die richtige Antwort bekommt man mit der richtigen Frage.
User bekommst Du nicht direkt als Excel-Formel. Du muss eine User Defined Formula (UDF) herstellen:
Public Function UserName() As String
UserName = Application.UserName
End Function
Public Function UserPath() As String
UserPath = Application.UserLibraryPath
End Function
Public Function UserId() As String
Dim S
S = Application.UserLibraryPath
S = Left(S, InStr(1, S, "AppData", vbTextCompare) - 2)
S = Mid(S, InStrRev(S, "\") + 1)
End Function
Diese Funktionen in einem Modul speichern.
dann im Excel-Blatt als normale Formel aufrufen, dann in dem dekante indirekt einbauen.
Viele Grüße
Yal
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige