Thema Datum  Von Nutzer Rating
Antwort
17.12.2015 16:23:57 Gast66798
NotSolved
17.12.2015 16:35:58 Gast87350
NotSolved
17.12.2015 17:22:33 Gast51538
NotSolved
Blau Pfad verkürzen
18.12.2015 13:57:10 Gast54186
NotSolved

Ansicht des Beitrags:
Von:
Gast54186
Datum:
18.12.2015 13:57:10
Views:
1466
Rating: Antwort:
  Ja
Thema:
Pfad verkürzen

Das geht ähnlich. Du musst dann nur den Pfad von 0 beginnend aufbauen. Sieht dann wie unten aus. DA wo die 3 steht, gibt man an, bis zu welchem Element man es wieder zusammenhaben will. Jeder Teil vor einem \ ist ein Element. Gezählt wird aber ab 0. Deswegen bei dir 3 obwohl es ja 4 Elemente sind. Kann man auch abfangen und ggf. individuell anpassen. Man muss halt nur wissen, wieviele Elemente (Pfadtiefe) man will.

1
2
3
4
5
6
7
8
9
10
Dim Pfad As String
 Dim neuPfad As String
 Dim test
  
Pfad = ActiveWorkbook.FullName
test = Split(Pfad, "\")
For i = 0 To 3
    neuPfad = neuPfad & test(i)
    If i <> 3 Then neuPfad = neuPfad & "\"
Next i

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.12.2015 16:23:57 Gast66798
NotSolved
17.12.2015 16:35:58 Gast87350
NotSolved
17.12.2015 17:22:33 Gast51538
NotSolved
Blau Pfad verkürzen
18.12.2015 13:57:10 Gast54186
NotSolved