Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiname aus Pfad extrahieren

Dateiname aus Pfad extrahieren
06.10.2014 22:30:48
Falo
Hallo zusammen,
ich möchte mit einem Makro eine Datei öffnen,(der Pad steht in Zelle A5) und ein Makro in der geöffneten Datei ausführen. Die Datei wird auch geöffnet, nur Application.Run braucht nur den Dateinamen ohne Pfad. Wie kann ich aus dem Pfad den Dateinamen extrahieren hat jemand einen Tipp für mich
Mit freundlichen Grüßen aus dem Sauerland
Olaf
Private Sub DateiÖffnenP1_Click()
Dim Pfad As String
Pfad = ActiveWorkbook.Worksheets("System").Range("A5").Value
Workbooks.Open Filename:=Pfad
Application.Run "Pfad!Berechnen"

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiname aus Pfad extrahieren
06.10.2014 22:55:20
Daniel
Hi
um den Dateinamen aus dem Pfad zu extrahieren: 
dateiname = mid$(Pfad, InstrRev(Pfad, "\") + 1)

oder 
dateiname = split(Pfad, "\")(Ubound(Split(Pfad, "\")))

dann 
Application.Run dateiname & "!Berechnen"

Gruß Daniel

AW: Dateiname aus Pfad extrahieren
07.10.2014 00:04:15
Falo
Hallo Daniel,
Danke für deine schnelle Antwort.
so soll es sein, den Dateiname wird Extrahiert.
es kommt eine Fehlermeldung, das er das Makro nicht findet. weist Du ob man den Tabellen Name mit angeben muß
Mit freundlichen Grüßen aus dem Sauerland
Olaf
so Application.Run dateiname & "!Tabelle1.Berechnen"
oder so Application.Run dateiname & "!Berechnen"
So steht es im VBA editor Sub Berechnen()
Private Sub DateiÖffnenP1_Click()
Dim Pfad As String
Pfad = ActiveWorkbook.Worksheets("System").Range("A5").Value
Workbooks.Open Filename:=Pfad
dateiname = Split(Pfad, "\")(UBound(Split(Pfad, "\")))
Application.Run dateiname & "!Tabelle1.Berechnen"
End Sub

Anzeige
AW: Dateiname aus Pfad extrahieren
07.10.2014 00:58:09
Daniel
wenn das Makro in einem Tabellenblattmodul steht, muss man den Tabellenblattnamen mit angeben, wenn das Makro in einem allgemeinen Modul steht, reicht der Dateiname.
Gruß Daniel

AW: Dateiname aus Pfad extrahieren
07.10.2014 01:00:30
Daniel
Die Datei muss natürlich geöffnet sein und wenn Sonderzeichen vorhanden sind, kann es erforderlich sein, den Namen in Hochkommas zu setzen.
Gruß Daniel

AW: Dateiname aus Pfad extrahieren
07.10.2014 10:50:11
Falo
.

AW: Dateiname aus Pfad extrahieren
06.10.2014 23:55:10
Gerd
Hallo Falo!
Wie kann ich aus dem Pfad den Dateinamen extrahieren hat jemand einen Tipp für mich
Application.Run Dir$(Pfad) & "!Berechnen"
Gruß Gerd

Anzeige
AW: Dateiname aus Pfad extrahieren
07.10.2014 00:57:10
Falo
Hallo Gerd,
ich bekomme immer noch eine Fehlermeldung 1004 Excel das Makro Berechnen nicht finden
hast Du noch einen tipp
Mit freundlichen Grüßen aus dem Sauerland
Olaf

AW: Dateiname aus Pfad extrahieren
08.10.2014 21:32:38
Gerd
Hallo Olaf,
die Kopfzeile des Makros Berechnen lautet
Public Sub Berechnen() ?
Diese Prozedur steht in einem allgemeinen Modul, z.B. Modul1, u. dieses Modul ist nicht
mit Option Private Module abgeschottet?
Gruß Gerd

35 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
12
4
6
11
1
3
7
3
3
4
8
3
2
3