Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1472to1476
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 funktioniert unter Ecxel 2013 nicht

Pfad funktioniert unter Ecxel 2013 nicht
05.02.2016 13:10:22
chandler
Hallo zusammen,
weiß jemand warum folgende Code Snippets nicht funktioniert unter Excel 2013?
Bei Left bleibts das Marko stehen.

Sub test()
Dim Dateiname
Dim qPfad As String  'Quelle
Dim zPfad As String 'Ziel
nPfad = ThisWorkbook.Path
zPfad = Left(zPfad, InStrRev(zPfad, "\"))
zPfad = zPfad & "Daten\"
Dateiname = InputBox("bla bla?", "Name der Datei", "")
End Sub

Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße

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

Betreff
Datum
Anwender
Anzeige
versuche VBA.Left() owT
05.02.2016 13:22:17
Rudi

AW: Pfad funktioniert unter Ecxel 2013 nicht
05.02.2016 13:23:49
UweD
Hallo
nPfad = ThisWorkbook.Path ; hier muss z stehen
sonst kann das Makro hier zPfad = Left(zPfad, InStrRev(zPfad, "\")) nichts finden
Gruß UweD

AW: Pfad funktioniert unter Ecxel 2013 nicht
05.02.2016 17:30:47
chandler
Hallo Rudi,
hallo Uwe,
es funktioniert bestens.
Sub test()
Dim zPfad As String
zPfad = VBA.Left(zPfad, InStrRev(nPfad, "\"))
End Sub
Vielen Dank.
Grüße

AW: Pfad funktioniert unter Ecxel 2013 nicht
05.02.2016 17:32:31
chandler
und zwar, so:
zPfad = VBA.Left(zPfad, InStrRev(zPfad, "\"))
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige