Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mappe bei Veränderung ausdrucken

Mappe bei Veränderung ausdrucken
Andreas
Hallo,
ich habe folgendes Problem.Ich habe fünf Exceldateien die alle paar Tage verändert werden.
V:\Test\test1.xls
V:\Test\test2.xls usw.
Wie kann ich es anstellen das überprüft wird ob die Arbeitsmappen aktualisiert wurden und nur dann (alle) ausgedruckt werden. Da alle fünf Arbeitsmappen fast Zeitgleich geändert werden würde es ausreichen wenn Excel die erste Mappe überprüft, bei Veränderung dieser Mappe alle Fünf ausdruckt und bei keiner Veränderung eine entsprechende Meldung ausgibt.
Ich hoffe mein Problem wurde verstanden.
Gruss Andreas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mappe bei Veränderung ausdrucken
Hans
Hallo Andreas,
das könnte so funktionieren:

Sub PruefenUndDrucken()
Dim dat As Date
Dim iFile As Integer
Dim sPath As String, sFile As String
Application.ScreenUpdating = False
dat = FileDateTime(sPath & "\test1.xls")
If Date - dat &lt 1 Then
For iFile = 1 To 5
Workbooks.Open sPath & "\test" & iFile & ".xls", False
ActiveWorkbook.PrintOut
ActiveWorkbook.Close savechanges:=False
Next iFile
End If
Application.ScreenUpdating = True
End Sub

gruss hans
AW: Mappe bei Veränderung ausdrucken
Andreas
Hallo Hans,
danke für die schnelle Antwort.
Bie mir druckt das Makro jedes mal alle 5 Mappen aus. Auch ohne Änderung.
Anzeige
AW: Mappe bei Veränderung ausdrucken
Heinz
Hallo Andreas,
versuch mal:

Sub PruefenUndDrucken()
If Date - dat &gt 0 Then
End Sub

Gruß
Heinz
AW: Mappe bei Veränderung ausdrucken
Andreas
Hallo,
Nun druckt es überhaupt nicht mehr
Trotzdem Danke

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige