Verzeichnis + Jahr aus Zelle

walter · 2022-03-16T09:46:16+00:00

Guten Morgen, ich habe folgenden Pfad: C:\_Lager\__Logistik\__Kundennamen & aktive.zelle("K1") in K1 steht das Jahr, das sollte dahinter stehen, so das man direkt das Verzeichnis für das Jahr aufrufen kann. mfg walter

Hallo Rudi,
habe dieses Makro um die Dateien der einzelnen Monate zu "Laden" der Dateien im Forum gefunden.


Public Sub Dateien_kopieren()
Dim Datei As String
Dim Pfad As String
Pfad = GetFolder(ActiveSheet.Range("i2"))
ActiveSheet.Range("C2") = Pfad
Datei = Dir(Pfad & "*.*")
Do While Datei  ""
ActiveSheet.Range("C9999").End(xlUp).Offset(1, 0) = Datei
Datei = Dir()
Loop
Cells(Application.max(9, Cells(Rows.Count, 7).End(xlUp).Row + 1), 7) = Pfad       'hiermit wird nächste frei Zelle wert gesetzt
End Sub

Function GetFolder(Optional StartVerzeichnis As String = "C:") As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = StartVerzeichnis ' .Show
If .SelectedItems.Count > 0 Then GetFolder = .SelectedItems(1) & IIf(Right(.SelectedItems(1), 1) = "\", "", "\")
End With
End Function Hinweis:
Jetzt bin ich im richtigen Verzeichnis und entsprechendes Jahr: K1 =Jahr
="C:\_Lager\__Logistik\__Kundennamen\" &Range("K1")
jetzt befinde ich mich im Verzeichnis 2022, darunter Verzeichnisse der Monate:
01 Januar
02 Februar
03 März
der nächste Monat wird automatisch beim Speichern der Datei erstellt.
Frage:
Wie kann man das automatisieren ?
Ich würde gern, wenn möglich, die vorhandenen Monate automatisch öffnen, Laden ...
Mit dem vorhandenen Makro muss ich das Jahr 2022 öffnen, den gewünschten Monat öffnen und OK
drücken, dann sind die Daten in der Liste.
Wenn es möglich wäre, würde ich mich freuen.
mfg walter

Hallo
bleibt leider hier stehen:
Laufzeitfehler 76
Pfad nicht gefunden.
Set oFldr = oFS.GetFolder(Sheets("Info").Range("A2") & "\" & Year(Range("K1")))
Die Adressen stehen fertig also mit Endung Jahr, von A1-A5 in Tabelle "Info".
C:\_Lager\__Logistik\__Kundennamen\2022\
mußte gerade abbrechen, lief immer weiter...


Function GetFolder(Optional StartVerzeichnis As String = "C:") As String
Dim oFS As Object, oFldr As Object, oSubFldr As Object, oFile As Object
Set oFS = CreateObject("scripting.filesystemobject")
' Set oFldr = oFS.GetFolder(Sheets("Info").Range("A2") & "\" & Year(Range("K1")))
Set oFldr = oFS.GetFolder(ActiveSheet.Range("i2"))
For Each oSubFldr In oFldr.SubFolders
For Each oFile In oSubFldr.Files
'------------  von oben ----------------------------------------------
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = StartVerzeichnis  ' 0 Then GetFolder = .SelectedItems(1) & IIf(Right(.SelectedItems(1), 1) = "\", "", "\")
End With
'mach was
Next oFile
Next oSubFldr
End Function

gruß walter
mfg walter

Forumthread: Verzeichnis + Jahr aus Zelle

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Verzeichnis + Jahr aus Zelle

Forumthread: Verzeichnis + Jahr aus Zelle

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread