Hallo,
im Anhang befindet sich ein Datei, wo am Ende in einer Zelle negative oder positive Stunden ausgeben werden. Funktioniert auch super, nur leider wollte ich aus dieser Tabelle Daten mit Datum herauskopieren und dann
fehlen mir wegen dem setzen von "Datumswerte 1904" 4 Jahre. Kann man die Ausgabe der Zeit auch so hinbekommen, ohne das 1904, sonst habe ich echt ein Problem ?!
Wer kann evtl. dabei helfen ?
LG
Stephan
Hallo,
das Datumformat 1904 sollte man auf keinen Fall verwenden. Den Grund hast du ja schon herausgefunden. Die Differenz beträgt übrigens nicht vier Jahre, sondern vier Jahre und einen Tag. Da es genau genommen keine negativen Zeiten gibt, kann Excel die auch nicht darstellen. Kann damit aber trotz der Anzeige ###### damit weiter rechnen. Wenn dich die "Gartenzäune" stören, musst du in den betreffenden Spalten mit einem anderen Zellformat arbeiten.
Hi Stephan,
ich würde mit Industriezeit arbeiten.
Arbeitsblatt mit dem Namen 'Tabelle1' |
| A | B | C | D |
1 | Produzierte Dosen (Cu) | 95000 |
2 | | | | |
3 | Vorgabe Supply Chain 24 Std. Produzierte Dosen (Cu) | 102000 |
4 |
5 | | | | 24 |
6 | Status Planzeit (h) | -1,65 |
7 |
Zelle | Formel |
D5 | =WENN(D3="";0;24/1) |
D6 | =RUNDEN(WENN(ISTFEHLER(((D1*24/D3))-D5);"";((D1*24/D3))-D5);2) |
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016 |
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg |
Hallo Stephan,
Zellformat von D6 Standard und Formel
PHP-Code:
=WENN(ISTFEHLER(((D1*24/D3)/24)-D5);"";WENN((((D1*24/D3)/24)-D5)<0;"-";"")&TEXT(ABS(((D1*24/D3)/24)-D5);"[HH]:MM"))
http://www.office-hilfe.com/support/show...xtbereiche
Bau Dir das Beispiel mit folgendem Konstruktionsmakro:
Sub BaueDateiMitNegativenZeiten() 'Code erstellt einmalig Tabelle (diese ist dann ohne VBA)
Workbooks.Add xlWorksheet
[F:F].HorizontalAlignment = xlRight
[A:A].NumberFormat = "m/d/yyyy"
[B:F].NumberFormat = "[h]:mm"
[A1:F1] = Split("Datum Start Ende Soll Ist Saldo"): [F2] = 0
[D3:E9].FormulaArray = "={8,9;8,6;8,7;8,10;6,9;8,7;8,3.5}/24": [D3:E9] = [D3:E9].Value
a = "IF(CODE(R[-1]C)=45,-MID(R[-1]C,2,9),R[-1]C)"
[F3:F9] = "=TEXT(ABS(RC[-1]-RC[-2]+" & a & "),IF(RC[-1]+" & a & "
End Sub
Hallo, wenn man eine Datei neu aufbaut fehlen einem nicht diese 4 Jahre, nur wenn man hin- und herzwitscht... Also von Anfang an mit 1904-Datumsformat - keine andere Datei mit anderem Datumsformat gleichzeit öffnen oder geöffnet haben. Dann geht das wohl... ABER: man sollte auf dieses Format i.d.T verzichten...
Super Danke, das war genau das was ich gesucht habe.
Vielen vielen Danke
LG
Stephan