Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1500to1504
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
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitszeit

Arbeitszeit
02.07.2016 15:40:45
Milan
Hallo,
ich habe in der Rubrik Beispiele eine Tabelle (217404v) gefunden die mir helfen sollte in meinem Projekt, die allerdings berechnet Anwesendheit nicht richtig.
Meine Tabelle sieht ähnlich aus, aber ich bekomme nichts gebacken weil miene Zeiten laufen über null Uhr hinaus.Genau so VB Code bin ich nicht in der Lage zu schreiben.
Kann mir jemand bitte helfen das zu lösen.
Meine Tabelle ist unter folgendem Link zu finden:
https://www.herber.de/bbs/user/106697.xlsm
Danke in vorraus.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitszeit
02.07.2016 15:46:44
Hajo_Zi
mal nur das Beispiel über Mitternacht.

Arbeitsplan
 BCD
621:0001:0004:00

verwendete Formeln
Zelle Formel Bereich N/A
D6=REST(C6-B6;1)  
Excel-Inn.de
Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 23.05 einschl. 64 Bit



Anzeige
AW: Arbeitszeit
02.07.2016 16:53:51
Michael
Hi Milan,
die Formatierung ist easy mit dem Trick (den ich bei den Verkehrsbetrieben aufgeschnappt habe): man rechnet einfach über 24:00 hinaus, also bis 25:00.
Wenn man die Zeiten so eingetragen hat, klappt's auch mit der UDF: 
Function MAneu(r0 As Range, t0 As Range)
Dim r As Range
Dim i&
Dim a, z
Dim t1#
t1 = Round(t0, 7)
a = r0
For z = LBound(a) To UBound(a)
If t1 >= Round(a(z, 1), 7) And t1
In D23 steht dann: =maneu($B$2:$C$21;D1) und kann nach rechts kopiert werden.
Die Datei: https://www.herber.de/bbs/user/106698.xlsm
Schöne Grüße,
Michael

Anzeige
AW: Arbeitszeit
03.07.2016 18:38:55
Milan
Hallo Michael,
deine Lösung ist Antwort auf meine Frage und ist einfach GENIAL, funkt. alles SUPER.
Vielen Dank!
Schöne Grüße an Michael und Hajo

das freut mich, gern geschehen owT
03.07.2016 18:43:33
Michael

AW: Arbeitszeit
04.07.2016 21:25:53
Milan
Hallo,
freundliche User Michael hat mir sehr geholfen beim Problem in meiner Arbeitszeit Tabelle,und jetzt
bei der Erweiterung der Tebelle habe ich wieder ein Problem.
In Spalte B und C habe ich Formeln auf Bezug zur Arbeitszeiten eingesetzt und wenn ein Mitarbeiter nicht Anwesend ist, Bereich D23:AH23, D47:AH47 usw. berechnet nicht mehr Personal-Belegung.
Die Tabelle ist unter folgendem Link zu finden:
https://www.herber.de/bbs/user/106752.xlsm
Bitte um Hilfe!

Anzeige
AW: Arbeitszeit
05.07.2016 00:44:53
Michael
Hi Milan,
eine LEERE Zelle ist etwas anderes als eine, in der die Formel den Wert "" setzt...
Das erfordert dann eine weitere If-Verzweigung: 
Function MAneu(r0 As Range, t0 As Range)
Dim r As Range
Dim i&
Dim a, z
Dim t1#
t1 = Round(t0, 7)
a = r0
For z = LBound(a) To UBound(a)
If a(z, 1)  "" And a(z, 2)  "" Then
If t1 >= Round(a(z, 1), 7) And t1
Schöne Grüße,
Michael

AW: Arbeitszeit
05.07.2016 07:02:26
Milan
Hallo Michael,
ich habe deine Formel schnell vor der Arbeit getestet und funktioniert perfekt.
Ein Genie bleibt Genie, Respect!
Noch mall vielen Dank und Grüße!

Anzeige
freut mich, danke für die Rückmeldung,
05.07.2016 17:23:04
Michael
Milan,
und die freundlichen Worte...
Schöne Grüße zurück,
Michael

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige