Pfad nicht gefunden - Explorer öffnen

Hallo alle zusammen,
ich habe in der Zelle A1 des Tabellenblatts einen Pfad hinterlegt, der von mehreren Makros als "Standardpfad" herangezogen wird.
In diesem Pfad werden fortfolgend Unterordner und Dateien abgelegt.
Jetzt kann es vorkommen, dass jemand zuhause die Excel-Datei verwendet und dadurch nicht die gleiche Ordnerstruktur wie auf Arbeit hat.
Ich würde jetzt gerne erreichen, dass er im Falle eines fehlerhaften Pfades in A1 (er ist ja nicht auf Arbeit) einen Datei-Explorer in Excel öffnet, über den ich das Standardverzeichnis neu auswählen und dann in A1 abspeichern kann. Somit kann derjenige dann zuhause seinen neuen Standardpfad und sein eigenes Hauptverzeichnis verwenden, da er künftig beim Öffnen der ExcelDatei ja in A1 hinterlegt ist.
Wichtig wäre mir, den Pfad nicht manuell über Text sondern über eine grafische Oberfläche auszuwählen.
Kann man das irgendwie mit VBA bewerkstelligen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit ' Variablendefinition erforderlich Option Private Module ' Keine Anzeige in Makroliste Option Compare Text ' keine Unterscheidung Groß- Kleinbuchstaben '* H. Ziplies * '* 14.11.13 * '* erstellt von HajoZiplies@web.de * '* http://Hajo-Excel.de Function GetAOrdner2() As String With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then If Right(.SelectedItems(1), 1) = "\" Then GetAOrdner2 = .SelectedItems(1) Else GetAOrdner2 = .SelectedItems(1) & "\" End If Else GetAOrdner2 = "" End If End With Exit Function ' Funktion ohne Fehlerbehandlung verlassen End Function Sub StartVerzeichnis() MsgBox GetAOrdner2 End Sub

Hallo
zum Thema Pfad finden und speichern gibt es im Internet dutzende Beispiele. Hier mal drei Versionen in Klein und Gross, von mir auf das AktiveSheet Zelle A1 umgeschreiben. Bei der ersten Version kann man das verwendete Laufwerk als Buchstabe vorgeben! Sehr praktisch. Die anderen zeigen alle Laufwerke an.
mfg Piet

Sub DateiÖffnen_Dialog()
Dim objShell As Object, objFolder As Object, Dlg As Variant
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Ordner", 0, "D:")
If objFolder Is Nothing Then MsgBox "Nichts ausgewählt": Exit Sub
ActiveSheet.[a1] = objFolder.self.Path
MsgBox objFolder.self.Path
End Sub


Private Function GetFolder() As String 'Funktion um den Ordner auszuwählen
Dim objShell As Object, varFolder As Object
Set objShell = CreateObject("Shell.Application")
Set varFolder = objShell.BrowseForFolder(0, "Folder", &H4000, 17)
If varFolder Is Nothing Then Exit Function
'GetFolder = varFolder.Self.Path    'Liste Programm
'MsgBox varFolder
ActiveSheet.[a1] = varFolder.self.Path
MsgBox varFolder.self.Path
End Function

Sub xlDialog_Grosse_Version()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "G:\"
.Show 'Laufwerk auswählen
If .SelectedItems.Count > 0 Then
xDirect$ = .SelectedItems(1) & "\"
ActiveSheet.[a1] = xDirect$
MsgBox xDirect$
End If
End With
End Sub

Sub Pfad_selbst_auswählen() Dim Laufwerk As String, temp Laufwerk = [a1]: temp = Dir(Laufwerk & "\*.*") If Len(temp) = 0 Then Laufwerk = [a2]: temp = Dir(Laufwerk & "\*.*") End If MsgBox Laufwerk End Sub

Beliebteste Forumthreads (12 Monate)

Pfad nicht gefunden - Explorer öffnen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread