Anzeige
Archiv - Navigation
1524to1528
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

Teil von Pfad entfernen und in Zelle einfügen

Teil von Pfad entfernen und in Zelle einfügen
27.11.2016 16:29:07
Peter

Hallo Ihr Excelspezialisten,
ich finde leider keine brauchbare Lösung für folgendes Problem:
In der Zelle z. B. F3 wird er Pfad der aktuellen Datei angezeigt.
z. B. C:\User\Peter\Desktop\Test\Test1\Testdatei.xlsm
Ich möchte nun in der Zelle H3 den Teilpfad angezeigt bekommen:
C:\User\Peter\Desktop\Test
Wie kann ich dies per Formel oder per VBA Code erreichen?
Besten Dank für Eure Hilfe.
Gruss
Peter

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teil von Pfad entfernen und in Zelle einfügen
27.11.2016 16:32:54
Hajo_Zi
Hallo Peter,
mal Live
Range("H3")=LeftRange("F3", instrrev(Range("f3"),"\")-1)

AW: Teil von Pfad entfernen und in Zelle einfügen
27.11.2016 16:37:13
Peter
Hallo Hajo,
ich habe die Formel in Zelle H3 eingefügt. Geht leider nicht.
Gruss Peter
AW: Teil von Pfad entfernen und in Zelle einfügen
27.11.2016 16:38:46
Hajo_Zi
Hallo Peter,
das ist auch keine Formel, das ist VBA. Wie im Beitrag gefordert.

AW: Teil von Pfad entfernen und in Zelle einfügen
27.11.2016 16:43:35
Peter
Hallo Hajo,
jetzt kommt Fehlermeldung:
Fehler beim Kompelieren

Sub oder Funktion nicht definiert.
Mein Makro:

Sub Test()
Range("H3") = LeftRange("F3", InStrRev(Range("f3"), "\") - 1)
End Sub
Gruss
Peter
Anzeige
AW: Teil von Pfad entfernen und in Zelle einfügen
27.11.2016 16:46:48
Hajo_Zi
Hallo Peter,
man sollte nicht alles Live machen.
Sub Test()
Range("H3") = Left(Range("F3"), InStrRev(Range("f3"), "\") - 1)
End Sub

Gruß Hajo
AW: Teil von Pfad entfernen und in Zelle einfügen
27.11.2016 16:49:21
Peter
Hallo Hajo,
besten Dank hat geklappt.
Wünsche noch einen schönen Sonntag.
Gruss
Peter
Hajos Code als Formel
27.11.2016 17:14:50
RPP63
Moin!
… wäre bei mir in B2
Ich Deiner Threaderöffnung wolltest Du aber (irrtümlich?) etwas anderes.
Die Formel dazu steht in B1
AW: und alternativ dazu, mit AGGREGAT() ...
27.11.2016 17:47:56
... neopa C
Hallo Ralf,
... für B1: =LINKS(A1;AGGREGAT(14;6;SPALTE(1:1)/(TEIL(A1;SPALTE(1:1);1)="\");2)-1)
und für B2 die 2 in der Formel durch eine 1 ersetzen.
Gruß Werner
.. , - ...
Anzeige
dynamische Längenanpassung
27.11.2016 18:39:33
RPP63
Moin Werner!
Da ich die Aggregatformel mal verstehen wollte (Formelauswertung) (ist mir gelungen ;)), habe ich die Zählvariable SPALTE(1:1) durch ZEILE(INDIREKT("A1:"&ADRESSE(LÄNGE(A1);1))) ersetzt (dynamische Längenanpassung an die Textlänge in A1).
Fällt Dir da etwas besseres ein (vor allem nichts volatiles)?
Gruß Ralf
AW: dann natürlich mit INDEX() ...
27.11.2016 18:47:41
... neopa C
Hallo Ralf,
... so: =LINKS(A1;AGGREGAT(14;6;SPALTE(1:1)/(TEIL(A1;SPALTE(A1:INDEX(1:1;LÄNGE(A1)));1)="\");1)-1)
Gruß Werner
.. , - ...
Vielen Dank, Werner (owT)
27.11.2016 18:59:56
RPP63
AW: gern getan owT
27.11.2016 19:07:14
... neopa C
Gruß Werner
.. , - ...
Du suchst doch nach Test bzw. nach Test1
27.11.2016 18:31:06
WF
... und nicht nach einer Position ?
=LINKS(A1;SUCHEN("Test\";A1)+3)
bzw.
=LINKS(A1;SUCHEN("Test1\";A1)+4)
WF
Anzeige
Hier könnte man...
27.11.2016 21:24:52
Case
Hallo Peter, :-)
... auch eine kleine UDF nutzen. ;-)
Servus
Case

388 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige