Daeipfad in Makro ändern, durch Eingabe in der Arbeitsmappe

[MichaFuhrmann]

Hallo zusammen, ich habe im  Makro (u.a) folgendes:

Dim datei
Dim datei_liste(1000) As String
Dim j As Integer
j = -1
Dim dateityp As Variant

Const verz = "HIER DATEIPFAD\"
datei = Dir(verz & "\*.*")

Do While datei <> ""
     j = j + 1
'     Range("A" & i) = datei
'     dateityp = Split(datei, ".")
'     Range("B" & i) = dateityp(1)
     If datei <> "" Then
        datei_liste(j) = datei
    End If
    datei = Dir()
Loop

Es geht um das rot markierte

Das gesamte Makro, mit dem Rest den man nicht sieht, bewirkt dass viele ver. Zellen ausgefüllt werden, auf Basis anderer Excel Dateien in dem eingegeben Pfad.
 Ich möchte aber nun, dass wenn man den Dateipfad ändern will man nicht das Makro öffnen muss.
In der Arbeitsmappe möchte ich nun z.B. in  die Zelle A11 einen Dateipfad eingeben der dann anschliessend in das Makro geladen wird.
Ist dies möglich, bzw. kann mir jemand verraten wie?

Vielen Dank für die Hilfe!

[Herbert Grom]

Hallo Micha,

probiers mal damit:


Const verz = sheets("xyz").range("A11").value

[MichaFuhrmann]

Danke für den Tipp Herbert.
Habe nun folgendes versucht und es wird mir beim Ausführen des Makros kein Fehler angezeigt, es tut sich jeodch nichts

Const verz = "Sheets(Datenuebersicht).Range(A11).Value"
datei = Dir(verz & "\*.*")
 


Bei folgendem sagt er mir: Fehler beim Kompilieren. Konstanter Ausdruck erforderlich

Const verz = Sheets("Datenuebersicht").Range("A11").Value
datei = Dir(verz & "\*.*")


Bei dem: Fehler beim Kompilieren, Syntaxfehler

Const verz = "Sheets("Datenuebersicht").Range("A11").Value\"
datei = Dir(verz & "\*.*")

Was mache ich falsch^^?

[Herbert Grom]

Hallo Micha,

Probiers mal damit:

Sub test()
   sDir = ActiveWorkbook.Path
   verz = Sheets("Datenuebersicht").Range("A11").Value
   datei = sDir & "\" & verz & "*.*"
End Sub

wenn es damit nicht funzt, dann ist noch etwas anderes faul. Lade doch mal eine Beispieldatei hoch.