Mit aktueller Uhrzeit rechnen

[Bifi85]

Hallo schauan,

Von B4 nach unten zu B6 und C6 funktioniert es.

Wenn ich aber im Dropdown (C6) ein Tag wähle, dann funktioniert B4 (lange komische Zahl) nicht.

Das mit dem reinschreiben in B6 funktioniert auch, allerdings funktioniert das Ergebnis in B4 (lange komische Zahl) ebenso nicht.

Kann man eigentlich C8-C14 direkt in den Code schreiben oder müssen die im Tabellenblatt stehen?

Vielen Dank schauan.

[schauan]

Hallöchen,

aber jetzt

[Bifi85]

Super danke schauan,

Kann man das "Komma" in B4 durch ein ":" austauschen?

Ist es möglich die C8-C14 komplett in den Code zu integrieren, damit die Tage nicht im Tabellenblatt stehen?

Das wäre dann Perfekt.

[schauan]

Hallöchen,

wenn die Tage da stören kannst Du sie auch an anderer Stelle platzieren oder in einem anderen Blatt und den Bereich oder das Blatt ausblenden.

[Bifi85]

Vielen Dank, schauan.

[Bifi85]

Hallo schauan und andere Forum-Mitglieder,

Ich habe versucht das Ganze noch einmal in der für mich richtigen Zellenposition im selben Tabellenblatt zu erstellen.
Leider funktioniert es nicht. Aufgefallen ist mir unteranderem, dass der Text in der Bearbeitungszeilen nicht identisch ist:

In B4 steht: 05:00:00 und im kopierten B20 steht wieder ein Datum vor der Uhrzeit: 05.01.1900 00:00:00.

In B6 steht: 05:00:00 und im kopierten B26 steht wieder ein Datum vor der Uhrzeit: 05.01.1900 00:00:00.


  Uhrzeit_Schauan_final_3_versetzt.xlsm (Größe: 15,93 KB / Downloads: 2)

[schauan]

Hallöchen,

Bitte prüfe bzw vergleiche mal die Formate der Zellen. Eventuell kann ansonsten mal jemand anderes übernehmen, bin gerade nur mit dem Smartphone unterwegs...

[Bifi85]

Hallo lieber schauan und andere Forum-Mitglieder,

Ich konnte über Nacht alle Fehler beheben, bis auf einen.

Ich habe ein Bild mit Erklärung gemalt und gleichzeitig die Datei hochgeladen.

B17 ist einfach ein Wert, der dazu addiert werden soll. Es funktioniert mit der Zeit B26 aber nicht mit dem Tag C26.

B17 muss auch nie berechnet werden, es ist einfach nur eine Stundenzahl die angegeben wird.

Ich glaube es liegt nur an einem Fehler im VBA Code, den ich angestrichen habe.

   

  stunden_tag_fehler.xlsm (Größe: 17,33 KB / Downloads: 1)

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
Select Case Target.Address
Case "$B$17"
  If Target.Value >= 1 Then Target.Value = Target.Value / 24
  Range("C26").Value = Time + Date + Target.Value
  Range("B26").Value = Target.Value + Range("B23").Value + Time
Case "$B$23"
  If Target.Value >= 1 Then Target.Value = Target.Value / 24
  Range("C26").Value = Time + Date + Target.Value
  Range("B26").Value = Target.Value + Range("B17").Value + Time
Case "$B$26"
  If Target.Value >= 1 Then Target.Value = Target.Value / 24
  Range("B23").Value = (Target.Value + Int(Range("C26").Value) - Now)
Case "$C$26": Range("B23").Value = (Target.Value + Range("B26").Value - Now)
End Select
Application.EnableEvents = True
End Sub

[schauan]

Hallöchen,

Hast Du denn auch was neues eingegeben? Ich hatte ja schon mal darauf hingewiesen, dass sich da nix tut wenn Du die Datei irgendwann wieder öffnest oder warum auch immer sich dia Angaben für jetzt und heute ändern.

[Bifi85]

Hallo schauan und Forum-Mitglieder,

Leider funktioniert das Ganze nur von der aktuellen Uhrzeit als Ausgangspunkt.

Im Folgenden findet ihr meine Eklärung, ein Bild mit Erklärung, die Datei und den Code den ich bisher habe.

---

1) Start der Zubereitung soll die aktuelle Uhrzeit (B11) und Tag (C11) im Ausgangsursprung besitzen.
Allerdings sollen die anderen Zellen Start der Zubereitung als Berechnungsursprung benutzen und nicht die aktuelle Zeit.

Beispiel:
Festlegung per Hand:
Start der Zubereitung: 19:00 Dienstag
Dauer der Zubereitung: 1 h

Berechnung:
Gärung: 24 h
Fertig: 20:00 Mittwoch
Die Berechnung erfolgt mithilfe des Wertes in Gärung und es wird Fertig wird ermittelt.
Wird nun Fertig per Hand verändert, dann wird Gärung angepasst und umgekehrt.

Beispiel:
Gärung: 20 h
Fertig: 16:00 Mittwoch

Gegenbeispiel:
[b]Fertig:[/b] 12:00 Mittwoch
Gärung: 16 h

---

2) Es wird alles in die andere Richtung berechnet mit Fertig und Gärung als Ausgangspunkt.

Beispiel:
Festlegung per Hand:
Fertig: 14:00 Freitag
Gärung: 3 h
Dauer der Zubereitung: 1 h

Berechnung:
Start der Zubereitung: 10:00 Freitag

---

   

  beide_richtungen.xlsm (Größe: 18,74 KB / Downloads: 2)

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
Select Case Target.Address
Case "$B$17"
  If Target.Value >= 1 Then Target.Value = Target.Value / 24
  Range("C26").Value = Time + Range("B23").Value + Date + Target.Value
  Range("B26").Value = Target.Value + Range("B23").Value + Time
Case "$B$23"
  If Target.Value >= 1 Then Target.Value = Target.Value / 24
  Range("C26").Value = Time + Range("B17").Value + Date + Target.Value
  Range("B26").Value = Target.Value + Range("B17").Value + Time
Case "$B$26"
  If Target.Value >= 1 Then Target.Value = Target.Value / 24
  Range("B23").Value = (Target.Value + Int(Range("C26").Value) - Now)
Case "$C$26": Range("B23").Value = (Target.Value + Range("B26").Value - Now)
End Select
Application.EnableEvents = True
End Sub