Zeitmakro plus Zellabfrage

[schauan]

Hallo Peggy,

das ist aber doch aus meiner Sicht genau die Crux. Dein Zeitmakro trägt dann alle Minute das aktuelle Datum und die Zeit ein, und die Datei wird nicht gespeichert. In den beiden Dateien stand überall eine 0. Bis ich da an B5 was gemacht hatte, stand in C1 das aktuelle Datum. Da wird dann nix gespeichert und wenn ich in B5 wieder den Eintrag raus nehme, morgen auch nicht.

Eventuell hab ich da noch einen Klemmer, aber jetzt mach ich erst mal Frühstück, bin vielleicht in einer Stunde wieder da .-)

[schauan]

Hallöchen,

ich würde das unter Nutzung von D1 eventuell so angehen (ungetestet). Wenn der Eintrag in D1 verschieden vom aktuellen Datum ist und in B5 was steht, dann sollte das Datum in D1 geschrieben werden  und anschließend wird die Datei gespeichert.  Müsstest natürlich noch den Blattschutz aufheben vor der Änderung von D1 und dann wieder setzen.

Code:

Sub Zeitmakro()
With ThisWorkbook.Worksheets("Tabelle1")
 .Range("c1") = Format(Now, "dd.mm.yyyy - hh:mm:ss")
 If .Range("D1") <> Date And .Range("B5") <> "" Then
   .Range("D1") = Date
   Call Vorlageöffnen
 End If
End With
ET = Now + TimeValue("00:01:00")
Application.OnTime ET, "Zeitmakro"
End Sub

[Peggymaus]

Hallo Andrè,

vielen Dank für Deine Hilfe.

Im Moment habe ich wohl soviel herumprobiert, dass jetzt gar nichts mehr funktioniert. Mit jeder Änderung der Zeit in
C1 öffnet er die Vorlage und / oder die letzte Datei.... hab jetzt schon Vorgängerdateien aufgemacht und mit denen gearbeitet,
aber da ist es genau so. :@ :@

Bin echt am Ende und hab überhaupt keinen Plan mehr.

Deinen Vorschlag verstehe ich in soweit nicht, dass in D1 ja gar kein Datum steht, sonder 0 oder 1.



LG.
Peggy

[Peggymaus]

Hallo André,

habe mir jetzt nochmal eine Uraltversion gesucht. Es liegt wirklich an:

Private Sub Worksheet_Change(ByVal Target As Range)

ThisWorkbook.Worksheets("Tabelle1").Unprotect "123"
Application.ScreenUpdating = False
If Not (Intersect(Range("B:B"), Target) Is Nothing) Then Target.Offset(0, -1) = Now()
Application.ScreenUpdating = True
ThisWorkbook.Worksheets("Tabelle1").Protect "123"


If Cells(1, 4).Value <> curWert Then ' dieser Passage hier
Call Vorlageöffnen
curWert = Cells(1, 3).Value
End If

End Sub

Habe jetzt mal in E1 eine 0 geschrieben, damit D1 mit E1 verglichen wird. Der Code sieht nun so aus:

If Cells(1, 4).Value <> curWert Then
Call Vorlageöffnen
curWert = Cells(1, 5).Value
End If

Meines Verständnisse nach, sollte doch der Code jetzt D1 mit E1 vergleichen und wenn das ungleich ist, öffnet er das Makro Vorlageöffnen, oder?

Bei mir ist im Moment D1 = 0 und E1 = 0 und trotzdem öffnet er nach einer Minute die Vorlage... :@ :@ :@

LG.

Peggy

[Guschti]

Hallo
 
Viele Fragen:
Wird die Datei volle 24 Stunden bearbeitet?
Was ist das Ziel der vielen Dateien?
Warum so oft speichern?
Gibt es in der Tabelle nur diese beiden Werte, Datum mit Zeit und Barcode?
Wie viele Zeilen pro Tag werden Max. beschrieben?
Warum eine Datei pro Tag?
Gibt es auch Auswertungen, Zusammenzug der Dateien?
Könnte pro Tag auch eine gespeicherte Textdatei in Frage kommen?
Kommt es vor, dass der Barcode nachträglich geändert wird?
Könnte eine UF ein Thema sein?
etc.
 
Mfg Guschti

[Peggymaus]

Hallo Guschti,

hier die Antworten zu Deinen Fragen:

1. Ja die Datei wird volle 24 h bearbeitet.
2. Eigentlich sind es ja nur zwei Dateien, die vom aktuellen Tag und die Vorlage.
3. Eigentlich soll es nur gespeichert werden, die aktuelle Datei bevor die neue Vorlage geöffnet wird, die neue Datei unter neuem Namen...
4. Ja es gibt nur diese beiden Werte
5. Denke ca. 360 Barcodes... könnten auch paar mehr werden.
6. Auswertungen sind bisher noch nicht geplant, aber man weiß ja nie was dem Chef noch so einfällt.
7. Das tägliche Abspeichern ist Wunsch vom Chef.
8. Textdatei eher nein, da weitere Auswertung noch nicht absehbar.
9. Barcode soll nachträglich nicht mehr geändert werden.
10. UF ???

LG.

Peggy

[Steffl]

Hallo Peggy,

teste mal

[Peggymaus]

Hallo Stefan,

beim Öffnen der Datei kommt immer folgende Meldung:

Private Sub Workbook_Open()
Stop 'Stop ist gelb markiert und es läuft nicht weiter
Call Zeitmakro

End Sub

[RPP63]

Bin eben nach Hause gefahren.
Da stand so ein Stop-Schild und ich dachte mir, halt doch einfach mal an …

@Peggy:
Bist Du Dir sicher, dass VBA etwas für Dich ist?
Es gibt übrigens auch eine Hilfe:
Markiere Stop und drücke beherzt F1
Tut nicht weh und ruft sowas auf:
https://msdn.microsoft.com/de-de/VBA/Lan...-statement

Gruß Ralf

[Steffl]

Hallo Peggy,

lösche diese Zeile raus.