Bezug auf Zelle im Script
13.02.2019 12:27:30
nightcab
Mit diesem Script kann man die Anzahl der Dateien im Ordner auslesen.
Ich möchte bei diesem Script die hier fettgedruckte Jahreszahl durch einen Zellbezug ersetzen.
Das Datum steht in Zelle Master!E2
Sub Anzahlsuchen()
Dim StrPfad As String
Dim strDatei As String
Dim strSuchMuster As String
Dim intCounter As Integer
StrPfad = "F:\xxx\Datenerfassung 2019\Druck2PDF\" 'Jahreszahl Anpassen
strSuchMuster = "*.pdf"
strDatei = Dir(StrPfad & strSuchMuster, vbDirectory)
Do While strDatei ""
intCounter = intCounter + 1
strDatei = Dir
Loop
Range("E6").Value = "Es werden " & intCounter & " Dateien gesichert."
End Sub
Bitte um Hilfe!
Gruß nichtcab