Ich habe eine Anzahl Excel Datein mit Makro die abgearbeitet werden sollten und im Master vermerkt werden müssen.
Im ersten Code liste ich mir die Datein im Verzeichnis XY auf.
mit dem Zeiten Code sollen die Datein der reihe nach abgearbeitet werden mit dem Paf angezeigt und als erledigt vermerkt werden.
Mit der ersten Zelle klappt das auch wunderbar und ich weiss auch, dass ich in der Sub fileopen() bei (A1) und Cells je eins höchzählen muss.
Aber ich stehe wie ein Esel am Berg.
Bin am Versuchen mit iCounter usw.
Ziel ist es, dass dann alle aufgelisteten Zeilen abgearbeitet werden.
Danke für eure Unterstüzung
Folgenden Code habe ich schon:
Sub DateienAuflisten()
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("C:\Users\ua00011t\Documents\BigMove\Report 03.03. _
_
_
_
2020\")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 1
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
ActiveSheet.Cells(lngZeile, 1) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei
End Sub
Sub fileopen()
Dim strPfad As String
strPfad = _
ActiveWorkbook.Path & "\" & Worksheets("Tabelle1").Range("A1")
Application.Workbooks.Open (strPfad)
Dim extWB As Workbook, strExtName As String
Set extWB = GetObject(strPfad) 'Name der externen xlsm
strExtName = extWB.Name
Application.Run strExtName & "!EmailManuellAbsenden" 'Makro ausführen
extWB.Close
Set extWB = Nothing
Sheets("Tabelle1").Cells(1, 2) = strPfad
Sheets("Tabelle1").Cells(1, 3) = "erledigt"
End Sub
https:\/\/www.herber.de/bbs/user/137368.xlsm