Allgemein
Bilder einfügen
blinkender Zellinhalt
Counter
Datei schließen
Dateikopie
Dateiverwaltung
Datensätze umschreiben
Datum / Zeit
DropDown-Listenfeld
Drucken
Ersatz bedingte Formatierung
Füllfarbe
Kontextmenü
nur mit Makros
Sound
Stoppuhr
Symbolleiste Formular
Symbolleiste vor 2007
Symbolleiste 2007
UserForm
Zellen markieren
ohne VBA Beispiele
fremde Dateien
Hinweise zu Excel 2007
Übersicht Downloads
Bilder
Kontakt
Favoriten
Mein Heim-Forum
Tools Tabelle Forum
Impressum
Copyright
letzte Bearbeitung 10.09.09
Tabelle1
| A | B | C | D | E | F | G | |
| 1 | Beginn | Ende | Arbeitszeit | ||||
| 2 | 9:00 | 12:00 | 03:00 | ||||
| 3 | 9:00 | 14:30 | 05:30 | ||||
| 4 | 9:00 | 14:59 | 05:59 | ||||
| 5 | 9:00 | 15:00 | 05:30 | ||||
| 6 | 9:00 | 16:00 | 06:30 | ||||
| 7 | 9:00 | 17:30 | 08:00 | ||||
| 8 | 9:00 | 17:59 | 08:29 | ||||
| 9 | 9:00 | 18:00 | 08:00 | ||||
| 10 | 9:00 | 19:00 | 09:00 | ||||
| 11 | 9:00 | 21:00 | 11:00 | ||||
| 12 | 23:30 | 04:00 | 04:30 | ||||
| 13 | 00:00 | ||||||
| 14 | |||||||
| 15 | - entsprechend der erfassten Zeit werden unterschiedliche Pausenzeiten abgezogen | ||||||
| 16 | - Realisierung erfolgt über eine Funktion in VBA | ||||||
| Formeln der Tabelle | ||||
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
**************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Private Sub Worksheet_Change (ByVal
Target As
Range)
'**************************************************
'* H. Ziplies
*
'* 03.08.03
*
'* erstellt von Hajo.Ziplies@WEB.de
*
'* http://Hajo-Excel.de/
*
'**************************************************
FunctionArbeitszeit(Beginn As Date
, Ende As Date)
Application.Volatile
' nach Hinweis von Xico zusätzlicher Vergleich falls eine Eingabe leer
If Beginn < Ende Then
Select Case Ende - Beginn
Case Is <=
CDate("5:59")
Arbeitszeit = Ende - Beginn -
CDate( "8:59" )
Case Is
<= CDate("8:59"
)
Arbeitszeit = Ende - Beginn - CDate(
"0:30")
Case Else
Arbeitszeit = Ende - Beginn -
CDate("1:00" )
End Select
Else
Select Case 1 - Beginn + Ende
Case Is <=
CDate( "5:59" )
Arbeitszeit = 1 - Beginn + Ende
Case Is <=
CDate("8:59" )
Arbeitszeit = 1 - Beginn + Ende -
CDate("0:30")
Case Else
Arbeitszeit = 1 - Beginn + Ende -
CDate("1:00")
End Select
End
End Function
Code eingefügt mit: Excel Code Jeanie