Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur Pfad ohne Dateiname

Nur Pfad ohne Dateiname
06.04.2005 06:05:03
Thomas
Wunderschönen guten Morgen liebe Forum-Mitglieder
Ich suche eine Möglichkeit, wie ich per VBA den Pfad ohne Dateiname auslesen kann.
s = Application.ActiveWorkbook.Path '[Anzeige "C:\Eigene Dateien\Krfa\HSK\HSK-ProForst.xls"]
si = Right(si, InStr(1, StrReverse(si), "\") - 1) '[Anzeige "HSK-ProForst.xls"]
Ich will aber nur den Pfad ohne Dateiname
"C:\Eigene Dateien\Krfa\HSK\"
Kann mir jemand auf die Sprünge helfen, wie der Code ausschauen muss.
Vielen Dank
Gruss Thomas
(PS. Kann leider erst am Abend wieder im Forum nachschauen, Bitte Geduld=

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

Betreff
Datum
Anwender
Anzeige
AW: Nur Pfad ohne Dateiname
06.04.2005 06:09:33
Hajo_Zi
Hallo Thomas,

Sub Test()
Dim StAblage As String
StAblage = ThisWorkbook.Path
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Nur Pfad ohne Dateiname
06.04.2005 06:24:47
Thomas
Hallo Hajo
Auch schon auf...?
Sorry, mein Fehler (ist noch ein bisschen früh).
Ich möchte vom Pfad die letzte Verzweigung abschneiden. Also statt "C:\Eigene Dateien\Krfa\HSK\ so "C:\Eigene Dateien\Krfa\.
Hast du dafür noch eine Lösung parat?
Danke
Gruss Thomas
Anzeige
AW: Nur Pfad ohne Dateiname
06.04.2005 06:44:22
Nepumuk
Morgen Thomas,
eine Möglichkeit:


Option Explicit
Public Sub test()
    Debug.Print fncShortPath("C:\Eigene Dateien\Krfa\HSK\")
End Sub
Private Function fncShortPath(strPath As String) As String
    Dim varArray As Variant, intIndex As Integer
    If Right$(strPath, 1) = "\" Then strPath = Mid$(strPath, 1, Len(strPath) - 1)
    varArray = Split(strPath, "\")
    For intIndex = 0 To UBound(varArray) - 1
        fncShortPath = fncShortPath & varArray(intIndex) & "\"
    Next
End Function


Gruß
Nepumuk
Anzeige
AW: Nur Pfad ohne Dateiname
06.04.2005 06:50:06
Thomas
Hallo Nepumk
Ist werde das gleich heute Abend testen.
Vielen Dank und einen schönen Tag!
Gruss
Thomas

31 Forumthreads zu ähnlichen Themen

VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
Anzeige
Dateiname ohne Pfad
Mandy

Hallo
ich möchte eine Datei per Makro abspeichern:
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Dateiname, fileFilter:="Excel-Arbeitsmappe, *.xls")
Bei meinem Neuer_Dateiname wird aber immer der komplette Pfad angegeben, ich möchte aber nur den dateiname. Was ma...
03.11.2009 09:15:45
Thread-ID: 1113997
9 Beiträge
VBA Dateien(alle Tab) aus Pfad in Datei kopieren
Carmen

Hallo zusammen,
ich habe, mit Hilfe folgendes Makro, zum Zusammenführen von Dateien aus einem Pfad in eine neue Datei und ein Tabellenbaltt, in Benutzung.
Es funktioniert ganz wunderbar, nur möchte ich jetzt, dass alle Tabellenblätter aus den Dateien in die neue Datei eingefügt werden....
12.07.2012 15:34:31
Thread-ID: 1270787
5 Beiträge
Anzeige
Dateinamen/Tabellenbla aus Dateipfad herausfiltern
Xetom

Hallo zusammen,
ich bin schon fast am verzweifeln. Ich versuche folgendes:
Ich möchte aus der Funktion ZELLE() den Dateinamen und das Tabellenblatt aus dem dateipfad ermitteln. Ich weiß, dazu gibt es schon viele Anleitungen. Allerdings greifen diese nicht bei meinem Problem.
Der Dat...
31.10.2013 16:08:24
Thread-ID: 1336700
6 Beiträge
VBA - pdf-Dateiname aus Zellenwert
Frank

Hallo,
bin neu hier und benötige Hilfe.
Bin schon Stunden an meinem Makro dran, es will mir nicht gelingen.
VBA-Kenntnisse sind NICHT vorhanden, das Untengeschriebene habe ich mir z.T. kopiert und so an mein Anliegen angepasst.
Ich möchte jedoch eine Änderung vornehme, die mir e...
28.01.2014 15:44:42
Thread-ID: 1347093
5 Beiträge
Dateinamen aus Pfad extrahieren
Tom

Hallo,
habe schon eineige Versuche hinter mir, klappt aber nicht Kann mir jemand einen kurzen Code zeigen, der mir den Dateinamen liefert?
Danke
TOM
12.03.2014 13:15:34
Thread-ID: 1353226
10 Beiträge
Dateiname aus Pfad
Dirk

Hallo liebe Tüftler,
in Spalte C stehen Dateinamen mit kompletter Pfandangabe in Textform.
Sowohl die Anzahl der Unterverzeichnisse (also damit auch die "\") als auch die Dateinamenserweiterungen sind unterschiedlich (.csv, .xlsm ...).
Nun benötige ich in Spalte B nur den Dateinamen...
10.02.2015 21:15:35
Thread-ID: 1408518
4 Beiträge
VBA: Dateiname aus Zelle erstellen
Niko

Guten Abend,
ich habe mir in Excel 2010 ein Makro erstellt, das mir den Dateinamen aus einer bestimmten Zelle generiert:
Sub SaveAs() savedFile = Application.GetSaveAsFilename(InitialFileName:="N:\A\B\C\" & [C1050], fileFilter:=" _ Excel-Arbeitsmappe, *.xlsm") If savedFile "Falsch"...
30.09.2015 21:48:19
Thread-ID: 1450203
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
18
8
4
6
5
4
9
3
2
3
4
6
11
1
3
7
3
3
4
8
3
2
3
3