Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei: prüfen ob verändert

Textdatei: prüfen ob verändert
06.03.2008 09:38:53
Daniel
Hallo!
Ich muss in einem Ablauf prüfen, ob sich eine Textdatei geändert hat,
um dann ein weiteres Makro anzustoßen.
Das Ganze muss möglichst effizient laufen, d.h. die Prüfung sollte eigentlich
ständig stattfinden, und dabei möglichst wenig CPU verbauchen.
Gibt es dazu brauchbare Ansätze?
Danke,
Daniel

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

Betreff
Datum
Anwender
Anzeige
AW: Textdatei: prüfen ob verändert
06.03.2008 10:49:00
Heiko
Hallo Daniel,
mein Vorschlag nur das Datum der letzten Speicherung merken und vergleichen, das geht ziemlich schnell.
z.B. so:

Sub Aenderung()
Dim objFs As Object, objFile As Object
Dim strPathAndFile As String
' Pfad und datei NATÜRLICH anpassen !!!
strPathAndFile = "C:\Copy\Probe.txt"
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFile = objFs.GetFile(strPathAndFile)
' In Zelle B2 (Beispiel) schreibt man dann den letzetn Wert um damit zu vergleichen
If objFile.DateLastModified  ThisWorkbook.Worksheets("Tabelle1").Range("B2") Then
ThisWorkbook.Worksheets("Tabelle1").Range("B2") = objFile.DateLastModified
MsgBox "Hier wurd was verändert !", vbCritical
' Und dein anderes Makro anstoßen
End If
' Zur Not könnte man auch noch die Größe vergleichen, ob sich da was verändert hat.
' MsgBox objFile.Size
Set objFs = Nothing
Set objFile = Nothing
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !

Anzeige
AW: Textdatei: prüfen ob verändert
06.03.2008 10:59:00
Daniel
Hallo Heiko,
ja das sieht gut aus.
Jetzt fehlt nur noch, dass das Makro ständig im Hintergrund läuft. Wie macht man das?

AW: Textdatei: prüfen ob verändert
06.03.2008 11:04:00
Daniel
Wenn ich es mir genau überlege, ist die Prüfung der Dateigröße sogar sinnvoller!
Was muss ich dazu ändern, also statt Datum die Größe prüfen.

AW: Textdatei: prüfen ob verändert
06.03.2008 11:32:00
Heiko
Hallo Daniel,
z.B. so:
Aber ACHTUNG, wenn jemand in der Datei nur einen Buchstaben oder andere Einträge ändert, dann ändert sich nicht die Größe der Datei wohl aber ihr Speicherdatum.
Und was meinst du mit dauernt laufen / überprüfen. 

Sub Aenderung()
Dim objFs As Object, objFile As Object
Dim strPathAndFile As String
' Pfad und datei NATÜRLICH anpassen !!!
strPathAndFile = "C:\Copy\Probe.txt"
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFile = objFs.GetFile(strPathAndFile)
' In Zelle B2 (Beispiel) schreibt man dann den letzten Wert um damit zu vergleichen
' If objFile.DateLastModified  ThisWorkbook.Worksheets("Tabelle1").Range("B2") Then
If objFile.Size  ThisWorkbook.Worksheets("Tabelle1").Range("B3") Then
' ThisWorkbook.Worksheets("Tabelle1").Range("B2") = objFile.DateLastModified
ThisWorkbook.Worksheets("Tabelle1").Range("B3") = objFile.Size
MsgBox "Hier wurde was verändert !", vbCritical
' Und dein anderes Makro anstoßen
End If
' Zur Not könnte man auch noch die Größe vergleichen, ob sich da was verändert hat.
' MsgBox objFile.Size
Set objFs = Nothing
Set objFile = Nothing
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !

Anzeige
AW: Textdatei: prüfen ob verändert
06.03.2008 12:22:40
Daniel
Hallo Heiko,
mit dauernd meine ich, dass es z.B. von 9:30 bis 16:00 Uhr durchläuft. Am besten jede Millisekunde.

AW: Textdatei: prüfen ob verändert
06.03.2008 12:38:32
Heiko
Hallo Daniel,
warum ?!
Und wenn es wirklich nötig ist, soll EXCEL und dein Rechner dann noch irgendwas anderes machen ?! Oder nur noch nachschauen ob das Terxtfile sich geändert hat.
Gruß Heiko
PS: Rückmeldung wäre nett !

AW: Textdatei: prüfen ob verändert
06.03.2008 12:39:00
Daniel
Ist das so performance lastig?

AW: Textdatei: prüfen ob verändert
06.03.2008 12:49:00
Heiko
Hallo ,
ja ist es! Denn im Millisekundenbereich ist das eine Schleife die immer durchläuft und somit dein EXCEL VBA mäßig schon mal voll auslastet.
Mit Excel Boardmitteln geht das maximal im Sekundenbereich mit Application.OnTime. Stoppen des Prozesses z.B. mit Beenden von Excel, oder eine Stopproutine reinprogrammieren.

Public Function Aenderung(strPathAndFile As String) As Boolean
Dim objFs As Object, objFile As Object
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFile = objFs.GetFile(strPathAndFile)
If objFile.Size  ThisWorkbook.Worksheets("Tabelle1").Range("B3") Then
ThisWorkbook.Worksheets("Tabelle1").Range("B3") = objFile.Size
Aenderung = True
Exit Function
End If
Set objFs = Nothing
Set objFile = Nothing
Aenderung = False
End Function


Sub UeberpruefungStarten()
If Aenderung("C:\Copy\Probe.txt") Then
MsgBox "Wieder was verändert!", vbInformation
End If
Application.OnTime Now + TimeValue("00:00:01"), "UeberpruefungStarten"
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !

Anzeige
AW: Textdatei: prüfen ob verändert
06.03.2008 13:57:00
Daniel
Okay, danke. Das scheint auf den 1. Blick gut zu gehen. Und ich liege mit der PC Auslastung um 10%.
Also kleiner als 1 Sekunde kann man gar nicht machen?

AW: Textdatei: prüfen ob verändert
06.03.2008 14:08:10
Heiko
Hallo Daniel,
mit einem vertretbaren Aufwand ist das nicht zu machen, da, wie gesagt, ein Excel Bordmittel dafür nicht vorhanden ist.
Man müßte sich da was eigenes stricken über API und ähnlich komplizierte Dinge, bei VBA Kaum nicht zu empfehlen.
Gruß Heiko
PS: Rückmeldung wäre nett !

AW: Textdatei: prüfen ob verändert
06.03.2008 14:32:52
Daniel
Alles klar. Danke auf jeden Fall für die tolle Hilfe!
Eine abschließende Frage noch: ich habe nun in einer zelle =Jetzt() stehen. Das aktualisiert sich aber nicht. Hängt das nun mit diesen Makros zusammen die sekündlich laufen?

Anzeige
AW: Textdatei: prüfen ob verändert
06.03.2008 14:47:00
Heiko
Hallo Daniel,
=Jetzt() wird nur aktualisiert wenn das Blatt neu berechnet wird, also irgendeine Formel berechnet wird weil sich im Blatt was ändert.
Wenn du nur =Jetzt() im Blatt hast würde sich diese Zelle erst bei erneuten öffnen oder bei drücken von Taste F9 neu berechnen.
Du könntest in das Makro das alle Sekunde gestartet wird, ein
ActiveWorkbook.Worksheets("Tabelle1").Calculate
integrieren dann würde alle Sekunde das Blatt neu berechnet.
Wenn da aber viele Formel drin sind, würde das natürlich auch wieder bremsen.
Gruß Heiko
PS: Rückmeldung wäre nett !

Anzeige
AW: Textdatei: prüfen ob verändert
06.03.2008 15:04:21
Daniel
Gut, war auch nur interessehalber. Wobei das im weiteren Verlauf meines "Projekts" schon eine Rolle spielen wird. Mal sehen. Danke Dir auf jeden Fall.

AW: Textdatei: prüfen ob verändert
06.03.2008 16:56:39
Daniel
Dann muss ich doch noch die Bitte nach einer Stopp-Prozedur stellen.
Wie stoppe ich den Ablauf (außer Excel zu beenden?)

AW: Textdatei: prüfen ob verändert
06.03.2008 20:37:49
Heiko
Hallo,
da gibt es soviele Möglichkeiten, die aber von der restlichen Programmierung und Struktur der Datei abhängen.
Eine Möglichkeit, in eine Zelle schreiben ob Pruefen oder halt nicht, z.B. so:

Sub UeberpruefungStarten()
If ThisWorkbook.Worksheets("Tabelle1").Range("B4") = "Pruefen" Then
If Aenderung("C:\Copy\Probe.txt") Then
MsgBox "Wieder was verändert!", vbInformation
End If
Application.OnTime Now + TimeValue("00:00:01"), "UeberpruefungStarten"
End If
End Sub


Oder ein globale Variable nutzen, z.B. mit einem Commandbutton setzten und bei Bedarf darüber auch wieder zurücksetzen.
Oder oder oder, mußt du halt mal ein bisschen rumprobieren.
Gruß Heiko

Anzeige
AW: Textdatei: prüfen ob verändert
06.03.2008 18:22:00
firmus
Hallo Daniel,
zu =jetzt()
Läßt sich nicht das Tabellenblatt ansprechen und in die Zelle der AKTUELLE Zeitwert setzen.
z.B:
Cells(1, 2) = Format(Now, "hh:mm:ss") schreibt in B1 bei jedem Durchlauf die aktuelle Zeit.
Gruß
Firmus

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4