Was läuft falsch

Bild

Betrifft: Was läuft falsch
von: Blaumann
Geschrieben am: 22.07.2015 09:46:56

Hallo,
finde einfach den Fehler nicht
in A1 steht ein Datum, in H1 eine Zeit, mit VBA soll jetzt Datum und Zeit addiert werden und eine bestimmte Zeit dazu.
folgendes habe ich
Pluszeit = 12.25
Anfang = Range("A1").Value + Range("H1").Value
Range("K1").Value = Int(Anfang + Pluszeit/24)(soll nur Datum sein)
Anfang ist korrekt, nur der Wert in K1 stimmt nicht
das gleiche in Zellen gemacht ist aber OK
Gruss Peter

Bild

Betrifft: AW: Was läuft falsch
von: ransi
Geschrieben am: 22.07.2015 12:09:28
Hallo Peter,
Funktioniert einwandfrei:
Tabelle1

 ABCDEFGH
122.07.2015      12:00


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Option Explicit

Sub machs()
    Dim pluszeit As Double
    Dim Anfang As Double
    pluszeit = 12.25
    Anfang = Range("A1").Value + Range("H1").Value
    Range("K1").Value = Int(Anfang + pluszeit / 24) '(soll nur Datum sein)
End Sub


Tabelle1

 ABCDEFGHIJK
122.07.2015      12:00  23.07.2015


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Was läuft falsch"