Dateigröße
Horst
Folgendes Makro prüft, ob einer der Dateien "A.txt" bzw. "B.txt" hinsichtlich ihres Speicherdatums verändert wurden und ruft abhängig davon weitere Module auf.
Wie müsste der Code aussehen, dass nicht das Speicherdatum der Datei, sondern die Dateigröße ausschlaggebend für den Start weiterer Module ist?
Ich gehe davon aus, dass man die Zeile "FileDate = FileDateTime(strFile(0))" verändern müsste, nur wie?
Sub check_filedate() 'autoupdate
Dim strFile(1) As String, FileDate As Date
'Pfad für Datei A und B
strFile(0) = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\") _
strFile(1) = strFile(0)
strFile(0) = strFile(0) & "Pattern_one.txt" 'Datei A
strFile(1) = strFile(1) & "Pattern_more.txt" 'Datei B
'Abfrage Datei A, speichern in A1
FileDate = FileDateTime(strFile(0))
If Range("A1") FileDate Then
Range("A1") = FileDate
ThisWorkbook.Save
Call PatternSelection_one 'Dein Makro A anpassen
End If
'Abfrage Datei B, speichern in A2
FileDate = FileDateTime(strFile(1))
If Range("A2") FileDate Then
Range("A2") = FileDate
ThisWorkbook.Save
Call PatternSelection_more 'Dein Makro B anpassen
End If
End Sub
Sub PatternSelection_one()
Call Modul2.generate_signal_one
End Sub
Sub PatternSelection_more()
Call Modul2.generate_signal_more
End Sub
Besten Dank für Eure Hilfe!