Office: Pausenzeiten mit vba berechnen

Fie97 · 12. Oktober 2020

Hallo zusammen,

ich komme leider gar nicht weiter mit meiner Datei.
Ich arbeite gelegentlich mit Excel und makros aber habe keine Routine.

Ich möchte in meiner beigefügten Datei gerne eine Scheife einbauen, die prüft, ob eine Arbeitsbeginnzeit und Arbeitsendezeit eingetragen ist und dann die Differenz in die Zeile für die Pause schreibt. Dann soll es für die nächste Spalte, also für den nächsten Tag durchgeführt werden.
Wenn keine Zeiten eingetragen sind, soll das Feld leer bleiben aber dennoch nach weiteren Tagen durchsucht werden, damit bei einen freien Tag die Schleife nicht endet.

Eine Bespielrechnung habe ich händisch eingetragen.
Es ist wichtig, dass dies per vba passiert, da viele weitere Berechnung integriert werden soll und dies im Hintergrund ablaufen soll.

Ich bin um jede Hilfe unheimlich dankbar!!

Grüße
Fie

:)

ReginaR · 14. Oktober 2020

Hi Fie,
mir erschließt sich zwar nicht ganz, warum Ende - Anfang = Pause ist, aber probier mal so:

Code:

Public Sub Berechnung()
Dim lng_spalte As Long

With Worksheets("Tabelle1")
For lng_spalte = 5 To .Cells(1, Columns.Count).Column
If .Cells(4, lng_spalte) "" And .Cells(5, lng_spalte) "" Then
.Cells(6, lng_spalte) = .Cells(5, lng_spalte) - .Cells(4, lng_spalte)
End If
Next
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aloys78 · 14. Oktober 2020

Hallo Fie,

Es ist wichtig, dass dies per vba passiert, da viele weitere Berechnung integriert werden soll und dies im Hintergrund ablaufen soll.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei VBA brauchst Du einen Auslöser, zB
- betätigen eines Buttons, oder
- Änderung des Zelleninhaltes zB bei Arbeitsende
Entspricht das Deiner Vorstellung?

Eine andere Möglichkeit wäre eine UDF für die Zeile 6, da könntest Du aber auch mit Formel arbeiten.

Fie97 · 14. Oktober 2020

Ja genau, es wäre schön, wenn der Code ausgeführt wird, sofern sich der Zelleninhalt bei Arbeitsbeginn oder Arbeitsende ändert.
Das bedeutet, wenn ein MA einen Zahl einträgt, dann soll die Pause berechnet werden und wenn eine Korrektur vorgenommen wird, dann wird die Pause neu berechnet.

Lieben Gruß
Fie

aloys78 · 14. Oktober 2020

Hallo Fie,

Ja genau, es wäre schön, wenn der Code ausgeführt wird, sofern sich der Zelleninhalt bei Arbeitsbeginn oder Arbeitsende ändert.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Daraus ist noch nicht zu erkennen, warum es VBA sein muss.

Egal - nachstehend mal eine VBA-Lösung:
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LCol As Long
Dim rng As Range

With Worksheets("Tabelle1")
LCol = .Range("AI1").Column ' # letzte Spalte
Set rng = .Range(.Cells(4, "E"), .Cells(5, LCol))

If Not Intersect(Target, rng) Is Nothing Then
If Target.CountLarge > 1 Then
MsgBox "Nur 1 Zelle darf geändert werden!", vbExclamation
Exit Sub
End If
If .Cells(4, Target.Column) "" And .Cells(5, Target.Column) "" Then
If .Cells(5, Target.Column) > .Cells(4, Target.Column) Then
.Cells(6, Target.Column) = .Cells(5, Target.Column) - .Cells(4, Target.Column)
Else
MsgBox "Arbeitsende muss zeitlich nach Arbeitsbeginn liegen!", vbExclamation
End If
End If
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Pausenzeiten mit vba berechnen

Pausenzeiten mit vba berechnen

Pausenzeiten mit vba berechnen

Pausenzeiten mit vba berechnen

Pausenzeiten mit vba berechnen - Similar Threads - Pausenzeiten vba berechnen

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

flexible Pausenzeiten bei Arbeitszeiterfassung

Berechnungen Stempel und Pausenzeiten

Exel Diagramm Pausenzeiten anzeigen