Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Berechnung Stunden & Tage per VBA

Berechnung Stunden & Tage per VBA
24.12.2005 12:14:37
Peter
Hallo,
erstmal allen ein frohes Weihnachtsfest.
Ich habe folgendes Problem:
Es liegt ein reiner Datumswert in Spalte "A" (QuellDatum,)
ein reiner Zeitwert in Spalte "B" (Quellzeit),
ein reiner Datumswert in Spalte "C" (ZielDatum)und
ein reiner Zeitwert in Spalte "D" (Zielzeit)vor.
Jetzt möchte ich die Differenz (über 24 Uhr):
in Tagen in Spalte "E" schreiben und
in Stunden in Spalte "F" schreiben .
Ich scheitere schon beim Zusammenführen von Datum und Zeit per VBA.
wer kann helfen?
Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Berechnung Stunden & Tage per VBA
24.12.2005 12:39:07
Hajo_Zi
Hallo Peter,
Warum per VBA?
Das ist doch einfacher in der Tabelle.


AW: Berechnung Stunden & Tage per VBA
24.12.2005 15:45:04
Dieter
Hallo Peter...
mal eben schnell zusammen geklöppelt...

Sub Zeitdifferenz()
Cells(1, 5) = DateDiff("d", Cells(1, 3), Cells(1, 1))
Cells(1, 6) = DateDiff("h", Cells(1, 2), Cells(1, 4))
End Sub

Das ist jetzt noch recht grob, aber schau dir mal die Funktion Datediff an... Die wird Dir helfen...
In diesem Sinne frohes Fest aus Berlin
Dieter W.
PS: Ich finde Rückmeldungen auch immer jut... :-)
AW: Berechnung Stunden & Tage per VBA
24.12.2005 15:54:11
Dieter
Hallo Peter...
mal eben schnell zusammen geklöppelt...

Sub Zeitdifferenz()
Cells(1, 5) = DateDiff("d", Cells(1, 3), Cells(1, 1))
Cells(1, 6) = DateDiff("h", Cells(1, 2), Cells(1, 4))
End Sub

Das ist jetzt noch recht grob, aber schau dir mal die Funktion Datediff an... Die wird Dir helfen...
In diesem Sinne frohes Fest aus Berlin
Dieter W.
PS: Ich finde Rückmeldungen auch immer jut... :-)
Anzeige
AW: Berechnung Stunden & Tage per VBA
25.12.2005 19:33:57
Peter
Hallo Peter,
wenn per VBA, dann geht es unter anderen Möglichkeiten so:


 Sub TageStunden()
Dim Dat_von   As Date
Dim Dat_bis   As Date
Dim Uhr_von   As Double
Dim Uhr_bis   As Double
Dim lZeile    As Long
   For lZeile = 1 To Range("A65536").End(xlUp).Row
      If IsDate(Range("A" & lZeile).Value) And _
         IsDate(Range("C" & lZeile).Value) Then
         Dat_von = Range("A" & lZeile).Value
         Dat_bis = Range("C" & lZeile).Value
       Else
         Exit For
      End If
      Uhr_von = Range("B" & lZeile).Value
      Uhr_bis = Range("D" & lZeile).Value
      If Uhr_bis < Uhr_von Then
         If Dat_bis > Dat_von Then
            Dat_bis = Dat_bis - 1
            Range("H" & lZeile).Value = Dat_bis - Dat_von
          Else
            Range("H" & lZeile).Value = 0
         End If
       Else
         Range("H" & lZeile).Value = Dat_bis - Dat_von
      End If
      If Uhr_bis < Uhr_von Then
         Range("I" & lZeile).Value = Uhr_bis + 12 - Uhr_von
       Else
         Range("I" & lZeile).Value = Uhr_bis - Uhr_von
      End If
   Next lZeile
End Sub


Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: mit Verbesserungen
25.12.2005 20:51:01
Peter
Hallo Peter
ich habe noch diverse Sicherheiten eingefügt:
https://www.herber.de/bbs/user/29539.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige